Modelagem Financeira II

Dr. Gélio M. Ferreira

Aula II - MBA em Finanças: Investimento e Risco (UFG)

Outline

Aula I (16/08/2019): 5 horas

  1. Clustering: Segmentação

  2. Métodos para Medir Distâncias

  3. Clustering Hierárquico

  4. Visualização de Segmentação

Outline

Aula II (24/08/2019): 5 horas

  1. Clustering em Mercado de Capitais

  2. Clustering em Análise de Crédito

  3. Clustering em Clientes/Faturamento

Outline

Aula III (14/09/2019): 5 horas

  1. Análise Fundamentalista

  2. Tendências das Contas Principais

  3. Estrutura da Dívida, Rentabilidade e Lucratividade

Análise Fundamentalista

A Análise Fundamentalista busca mapear e mensurar os fundamentos econômico-financeiro-operacionais da empresa, como: Faturamento, Custos, Dívidas de CP e LP, Investimentos de CP e LP. Além disso, procura avaliar como tais fatores pesam na atividade atual da empresa.

“A melhor análise: reflete o status e as perspectivas da empresa diante das restrições reais que a empresa se encontra.” (minha opinião)

Assim como William Peter Hamilton (1867 – 1929) e Charles Dow (1851 – 1902), um dos fundadores da Dow Jones e do Wall Street Journal, podem ser considerados os pais da análise técnica, o professor e investidor Benjamin Graham (1894-1976) é o pai da Análise Fundamentalista e Valuation.

Benjamin Graham ficou famoso por ter sido professor do bilionário Warren Buffet (Columbia University).

O grande objetivo da Análise Fundamentalista é lucrar na diferença de preço de compra e venda de ações com foco no longo prazo, por meio de estudos da situação da empresa e perspectivas conjunturais futuras.

Alguns tópicos da Análise Fundamentalista serão exploradas nesta aula!!!

A empresa analisada

Usiminas: Usinas Siderurgicas de Minas Gerais S.A

Produtos: setor siderúrgico - produção e comercialização de aços planos laminados a frio e a quente, bobinas, placas e revestidos.

Clientes: setores de bens de capital e de bens de consumo da linha branca e indústria automotiva.

Fundação: 25 de abril de 1956 em Coronel Fabriciano, (Vale do Aço, Minas Gerais).

Privatização: 24 de outubro de 1991

Grupo USIMINAS

Mineração Usiminas: Operações de mineração e transporte ferroviário, Joint venture com o grupo japonês Sumitomo Corporation.

Soluções Usiminas: Distribuição e transformação de aço, criada em 2009 com a fusão das companhias Fasal, Rio Negro, Dufer, Zamprogna e Usicort. Possui onze unidades industriais no Brasil.

Usiminas Mecânica: Montagem industrial e bens de capital, investindo na indústria de gás e energia, habitação popular e infraestrutura.

Unigal Usiminas: Processamento de aço galvanizado por imersão a quente. Joint venture entre a Usiminas e a Nippon Steel.

Demonstrações Financeiras Consolidadas

Nesta Análise serão utilizados:

– Balanço Patrimonial

– Demonstração do Fluxo de Caixa

– Demonstração dos Resultados do Exercício

– Demonstração dos Resultados Abrangentes

– Demonstração do Valor Adicionado

Obs. 1: Informações coletadas do B3

Obs. 2: Período de 2009 a 2018

Obs. 3: Info de Mercado: IGP-DI, Correção Monetária, Valor de Ações, Número de ações.

Dados das DF’s da Empresa

Dados Consolidados do Grupo Usiminas

Explore os dados (valores em mil R$):

shhh <- suppressPackageStartupMessages # não mostra  mensagens

shhh(library(data.table))

options(scipen=99) # no scientic notation
options(digits = 5)

data.bulk=shhh(fread("data/usiminas-ano10-18.csv",sep=";", header=TRUE, dec=",", colClasses=c("character", rep("numeric", 10),"character", "character", "character")))

data.bulk$V14=NULL

data.bulk=as.data.frame(data.bulk)

Análise Fundamentalista (I)

Limpeza de dados e checar unicidade do nome das linhas

data.bulk=data.bulk[,1:13]
#achar o numero de nomes repetidos
col1=data.bulk[,1] # nome da conta

col12=data.bulk[,13] # simbolo da demonstração
clounique=unique(col1)
notuniq=sapply(clounique, function(x)(length(which(col1 == x))))
# notuniq


# Alterar os registros com codigo de classe de contas

rownovo = paste(col1,col12, sep=" - ")

names.rep=data.frame(nam=names(notuniq), x = notuniq)
names.rep
                                                                                                                                                                    nam
Ativo                                                                                                                                                             Ativo
Ativo Total                                                                                                                                                 Ativo Total
Ativo Circulante                                                                                                                                       Ativo Circulante
Caixa e Equivalentes de Caixa                                                                                                             Caixa e Equivalentes de Caixa
Aplicacoes Financeiras                                                                                                                           Aplicacoes Financeiras
Aplicacoes Financeiras Avaliadas a Valor Justo                                                                           Aplicacoes Financeiras Avaliadas a Valor Justo
Titulos para Negociacao                                                                                                                         Titulos para Negociacao
Titulos Disponiveis para Venda                                                                                                           Titulos Disponiveis para Venda
Aplicacoes Financeiras Avaliadas ao Custo Amortizado                                                               Aplicacoes Financeiras Avaliadas ao Custo Amortizado
Titulos Mantidos ata o Vencimento                                                                                                     Titulos Mantidos ata o Vencimento
Contas a Receber                                                                                                                                       Contas a Receber
Clientes                                                                                                                                                       Clientes
Outras Contas a Receber subconta                                                                                                       Outras Contas a Receber subconta
Estoques                                                                                                                                                       Estoques
Ativos Biologicos                                                                                                                                     Ativos Biologicos
Tributos a Recuperar                                                                                                                               Tributos a Recuperar
Tributos Correntes a Recuperar                                                                                                           Tributos Correntes a Recuperar
Despesas Antecipadas                                                                                                                               Despesas Antecipadas
Outros Ativos Circulantes                                                                                                                     Outros Ativos Circulantes
Ativos Nao-Correntes a Venda                                                                                                               Ativos Nao-Correntes a Venda
Ativos de Operacoes Descontinuadas                                                                                                   Ativos de Operacoes Descontinuadas
Outros                                                                                                                                                           Outros
Impostos a Recuperar                                                                                                                               Impostos a Recuperar
Imposto de Renda e Contribuicao Social Antecipados                                                                   Imposto de Renda e Contribuicao Social Antecipados
Dividendos a Receber                                                                                                                               Dividendos a Receber
Adiantamentos a Fornecedores                                                                                                               Adiantamentos a Fornecedores
Outras Contas a Receber                                                                                                                         Outras Contas a Receber
Instrumentos Financeiros                                                                                                                       Instrumentos Financeiros
Ativo Nao Circulante                                                                                                                               Ativo Nao Circulante
Ativo Realizavel a Longo Prazo                                                                                                           Ativo Realizavel a Longo Prazo
Tributos Diferidos                                                                                                                                   Tributos Diferidos
Imposto de Renda e Contribuicao Social Diferidos                                                                       Imposto de Renda e Contribuicao Social Diferidos
Creditos com Partes Relacionadas                                                                                                       Creditos com Partes Relacionadas
Creditos com Coligadas                                                                                                                           Creditos com Coligadas
Creditos com Controladores                                                                                                                   Creditos com Controladores
Creditos com Outras Partes Relacionadas                                                                                         Creditos com Outras Partes Relacionadas
Outros Ativos Nao Circulantes                                                                                                             Outros Ativos Nao Circulantes
Tributos  Diferidos                                                                                                                                 Tributos  Diferidos
Depositos Judiciais                                                                                                                                 Depositos Judiciais
Valores a receber Eletrobras                                                                                                               Valores a receber Eletrobras
Investimentos                                                                                                                                             Investimentos
Participacoes Societarias                                                                                                                     Participacoes Societarias
Participacoes em Coligadas                                                                                                                   Participacoes em Coligadas
Outras Participacoes Societarias                                                                                                       Outras Participacoes Societarias
Propriedades para Investimento                                                                                                           Propriedades para Investimento
Imobilizado                                                                                                                                                 Imobilizado
Imobilizado em Operacao                                                                                                                         Imobilizado em Operacao
Imobilizado Arrendado                                                                                                                             Imobilizado Arrendado
Imobilizado em Andamento                                                                                                                       Imobilizado em Andamento
Intangivel                                                                                                                                                   Intangivel
Intangiveis                                                                                                                                                 Intangiveis
Contrato de Concessao                                                                                                                             Contrato de Concessao
Goodwill                                                                                                                                                       Goodwill
Passivo                                                                                                                                                         Passivo
Passivo Total                                                                                                                                             Passivo Total
Passivo Circulante                                                                                                                                   Passivo Circulante
Obrigacoes Sociais e Trabalhistas                                                                                                     Obrigacoes Sociais e Trabalhistas
Obrigacoes Sociais                                                                                                                                   Obrigacoes Sociais
Obrigacoes Trabalhistas                                                                                                                         Obrigacoes Trabalhistas
Fornecedores                                                                                                                                               Fornecedores
Fornecedores Nacionais                                                                                                                           Fornecedores Nacionais
Fornecedores Estrangeiros                                                                                                                     Fornecedores Estrangeiros
Obrigacoes Fiscais                                                                                                                                   Obrigacoes Fiscais
Obrigacoes Fiscais Federais                                                                                                                 Obrigacoes Fiscais Federais
Imposto de Renda e Contribuicao Social a Pagar                                                                           Imposto de Renda e Contribuicao Social a Pagar
Tributos a recolher                                                                                                                                 Tributos a recolher
Salarios e Encargos Sociais                                                                                                                 Salarios e Encargos Sociais
Obrigacoes Fiscais Estaduais                                                                                                               Obrigacoes Fiscais Estaduais
Obrigacoes Fiscais Municipais                                                                                                             Obrigacoes Fiscais Municipais
Emprestimos e Financiamentos                                                                                                               Emprestimos e Financiamentos
Emprestimos e Financiamentos subconta                                                                                             Emprestimos e Financiamentos subconta
Em Moeda Nacional                                                                                                                                     Em Moeda Nacional
Em Moeda Estrangeira                                                                                                                               Em Moeda Estrangeira
Debentures                                                                                                                                                   Debentures
Financiamento por Arrendamento Financeiro                                                                                     Financiamento por Arrendamento Financeiro
Outras Obrigacoes                                                                                                                                     Outras Obrigacoes
Passivos com Partes Relacionadas                                                                                                       Passivos com Partes Relacionadas
Debitos com Coligadas                                                                                                                             Debitos com Coligadas
Debitos com Controladores                                                                                                                     Debitos com Controladores
Debitos com Outras Partes Relacionadas                                                                                           Debitos com Outras Partes Relacionadas
Dividendos e JCP a Pagar                                                                                                                       Dividendos e JCP a Pagar
Dividendo Minimo Obrigatorio a Pagar                                                                                               Dividendo Minimo Obrigatorio a Pagar
Obrigacoes por Pagamentos Baseados em Acoes                                                                                 Obrigacoes por Pagamentos Baseados em Acoes
Tributos Parcelados                                                                                                                                 Tributos Parcelados
Adiantamentos de Clientes                                                                                                                     Adiantamentos de Clientes
Contas a Pagar por Aquisicao de Investimentos                                                                             Contas a Pagar por Aquisicao de Investimentos
Contas a Pagar                                                                                                                                           Contas a Pagar
Titulos a pagar - Forfaiting                                                                                                               Titulos a pagar - Forfaiting
Provisoes                                                                                                                                                     Provisoes
Provisoes Fiscais Previdenciarias Trabalhistas e Civeis                                                         Provisoes Fiscais Previdenciarias Trabalhistas e Civeis
Provisoes Fiscais                                                                                                                                     Provisoes Fiscais
Provisoes Previdenciarias e Trabalhistas                                                                                       Provisoes Previdenciarias e Trabalhistas
Provisoes para Beneficios a Empregados                                                                                           Provisoes para Beneficios a Empregados
Provisoes Civeis                                                                                                                                       Provisoes Civeis
Outras Provisoes                                                                                                                                       Outras Provisoes
Provisoes para Garantias                                                                                                                       Provisoes para Garantias
Provisoes para Reestruturacao                                                                                                             Provisoes para Reestruturacao
Provisoes para Passivos Ambientais e de Desativacao                                                                 Provisoes para Passivos Ambientais e de Desativacao
Passivos sobre Ativos Nao-Correntes a Venda e Descontinuados                                               Passivos sobre Ativos Nao-Correntes a Venda e Descontinuados
Passivos sobre Ativos Nao-Correntes a Venda                                                                                 Passivos sobre Ativos Nao-Correntes a Venda
Passivos sobre Ativos de Operacoes Descontinuadas                                                                     Passivos sobre Ativos de Operacoes Descontinuadas
Passivo Nao Circulante                                                                                                                           Passivo Nao Circulante
Emprestimos e Financiamentos  subconta                                                                                           Emprestimos e Financiamentos  subconta
Adiantamento para Futuro Aumento de Capital                                                                                 Adiantamento para Futuro Aumento de Capital
Outros  subconta                                                                                                                                       Outros  subconta
Passivos Contingentes                                                                                                                             Passivos Contingentes
Lucros e Receitas a Apropriar                                                                                                             Lucros e Receitas a Apropriar
Lucros a Apropriar                                                                                                                                   Lucros a Apropriar
Receitas a Apropriar                                                                                                                               Receitas a Apropriar
Subvencoes de Investimento a Apropriar                                                                                           Subvencoes de Investimento a Apropriar
Patrimonio Liquido Consolidado                                                                                                           Patrimonio Liquido Consolidado
Capital Social Realizado                                                                                                                       Capital Social Realizado
Reservas de Capital                                                                                                                                 Reservas de Capital
Agio na Emissao de Acoes                                                                                                                       Agio na Emissao de Acoes
Reserva Especial de agio na Incorporacao                                                                                       Reserva Especial de agio na Incorporacao
Alienacao de Bonus de Subscricao                                                                                                       Alienacao de Bonus de Subscricao
Opcoes Outorgadas                                                                                                                                     Opcoes Outorgadas
Acoes em Tesouraria RC                                                                                                                           Acoes em Tesouraria RC
Reservas de Reavaliacao                                                                                                                         Reservas de Reavaliacao
Reservas de Lucros                                                                                                                                   Reservas de Lucros
Reserva Legal                                                                                                                                             Reserva Legal
Reserva Estatutaria                                                                                                                                 Reserva Estatutaria
Reserva para Contingencias                                                                                                                   Reserva para Contingencias
Reserva de Lucros a Realizar                                                                                                               Reserva de Lucros a Realizar
Reserva de Retencao de Lucros                                                                                                             Reserva de Retencao de Lucros
Reserva Especial para Dividendos Nao Distribuidos                                                                     Reserva Especial para Dividendos Nao Distribuidos
Reserva de Incentivos Fiscais                                                                                                             Reserva de Incentivos Fiscais
Dividendo Adicional Proposto                                                                                                               Dividendo Adicional Proposto
Acoes em Tesouraria  RL                                                                                                                         Acoes em Tesouraria  RL
Para Investimentos e Capital de Giro                                                                                               Para Investimentos e Capital de Giro
Lucros/Prejuizos Acumulados                                                                                                                 Lucros/Prejuizos Acumulados
Ajustes de Avaliacao Patrimonial                                                                                                       Ajustes de Avaliacao Patrimonial
Ajustes Acumulados de Conversao                                                                                                         Ajustes Acumulados de Conversao
Outros Resultados Abrangentes                                                                                                             Outros Resultados Abrangentes
Participacao dos Acionistas Nao Controladores                                                                             Participacao dos Acionistas Nao Controladores
DRE                                                                                                                                                                 DRE
Receita de Venda de Bens e/ou Servicos                                                                                           Receita de Venda de Bens e/ou Servicos
Custo dos Bens e/ou Servicos Vendidos                                                                                             Custo dos Bens e/ou Servicos Vendidos
Resultado Bruto                                                                                                                                         Resultado Bruto
Despesas/Receitas Operacionais                                                                                                           Despesas/Receitas Operacionais
Despesas com Vendas                                                                                                                                 Despesas com Vendas
Despesas Gerais e Administrativas                                                                                                     Despesas Gerais e Administrativas
Perdas pela Nao Recuperabilidade de Ativos                                                                                   Perdas pela Nao Recuperabilidade de Ativos
Outras Receitas Operacionais                                                                                                               Outras Receitas Operacionais
Outras Despesas Operacionais                                                                                                               Outras Despesas Operacionais
Resultado de Equivalencia Patrimonial                                                                                             Resultado de Equivalencia Patrimonial
Resultado Antes do Resultado Financeiro e dos Tributos                                                           Resultado Antes do Resultado Financeiro e dos Tributos
Resultado Financeiro                                                                                                                               Resultado Financeiro
Receitas Financeiras                                                                                                                               Receitas Financeiras
Despesas Financeiras                                                                                                                               Despesas Financeiras
Resultado Antes dos Tributos sobre o Lucro                                                                                   Resultado Antes dos Tributos sobre o Lucro
Imposto de Renda e Contribuicao Social sobre o Lucro                                                               Imposto de Renda e Contribuicao Social sobre o Lucro
Corrente                                                                                                                                                       Corrente
Diferido                                                                                                                                                       Diferido
Resultado Liquido das Operacoes Continuadas                                                                                 Resultado Liquido das Operacoes Continuadas
Resultado Liquido de Operacoes Descontinuadas                                                                             Resultado Liquido de Operacoes Descontinuadas
Lucro/Prejuizo Liquido das Operacoes Descontinuadas                                                                 Lucro/Prejuizo Liquido das Operacoes Descontinuadas
Ganhos/Perdas Liquidas sobre Ativos de Operacoes Descontinuadas                                         Ganhos/Perdas Liquidas sobre Ativos de Operacoes Descontinuadas
Lucro/Prejuizo Consolidado do Periodo                                                                                             Lucro/Prejuizo Consolidado do Periodo
Atribuido a Socios da Empresa Controladora                                                                                   Atribuido a Socios da Empresa Controladora
Atribuido a Socios Nao Controladores                                                                                               Atribuido a Socios Nao Controladores
Lucro por Acao - (Reais / Acao)                                                                                                         Lucro por Acao - (Reais / Acao)
Lucro Basico por Acao                                                                                                                             Lucro Basico por Acao
ON                                                                                                                                                                   ON
PN                                                                                                                                                                   PN
Lucro Diluido por Acao                                                                                                                           Lucro Diluido por Acao
ON 1                                                                                                                                                               ON 1
PN 1                                                                                                                                                               PN 1
DRA                                                                                                                                                                 DRA
Lucro Liquido Consolidado do Periodo                                                                                               Lucro Liquido Consolidado do Periodo
Ganho (perda) Atuarial com Beneficios de Aposentadoria                                                           Ganho (perda) Atuarial com Beneficios de Aposentadoria
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes                                         Variacao Cambial de Coligada no Exterior e Outras Movimentacoes
Hedge de Fluxo de Caixa na Controladora                                                                                         Hedge de Fluxo de Caixa na Controladora
Hedge de Fluxo de Caixa em Coligada                                                                                                 Hedge de Fluxo de Caixa em Coligada
Resultado Abrangente Consolidado do Periodo                                                                                 Resultado Abrangente Consolidado do Periodo
DFC                                                                                                                                                                 DFC
Caixa Liquido Atividades Operacionais                                                                                             Caixa Liquido Atividades Operacionais
Caixa Gerado nas Operacoes                                                                                                                   Caixa Gerado nas Operacoes
Lucro Liquido do Exercicio                                                                                                                   Lucro Liquido do Exercicio
Encargos e Variacoes Monetarias/Cambiais Liquidas                                                                     Encargos e Variacoes Monetarias/Cambiais Liquidas
Despesas de Juros                                                                                                                                     Despesas de Juros
Depreciacao, Amortizacao e Exaustao                                                                                                 Depreciacao, Amortizacao e Exaustao
Resultado na Venda de Imobilizado                                                                                                     Resultado na Venda de Imobilizado
Resultado na Alienacao de Operacoes Descontinuadas                                                                   Resultado na Alienacao de Operacoes Descontinuadas
Participacoes nos Resultados de controladas, controladas em conjunto e coligadas       Participacoes nos Resultados de controladas, controladas em conjunto e coligadas
Constituicao (Reversao) e Provisoes                                                                                                 Constituicao (Reversao) e Provisoes
Perdas (Ganhos) Atuariais                                                                                                                     Perdas (Ganhos) Atuariais
Plano de Outorga de Acoes                                                                                                                     Plano de Outorga de Acoes
Perda (reversao) por valor recuperavel de ativos (Impairment)                                             Perda (reversao) por valor recuperavel de ativos (Impairment)
Variacoes nos Ativos e Passivos                                                                                                         Variacoes nos Ativos e Passivos
Titulos e Valores Mobiliarios                                                                                                             Titulos e Valores Mobiliarios
Contas a Receber de Clientes                                                                                                               Contas a Receber de Clientes
Valores a Receber de Empresas Ligadas                                                                                             Valores a Receber de Empresas Ligadas
Fornecedores, Empreiteiros e Fretes                                                                                                 Fornecedores, Empreiteiros e Fretes
Valores a Pagar a Empresas Ligadas                                                                                                   Valores a Pagar a Empresas Ligadas
Tributos a Recolher                                                                                                                                 Tributos a Recolher
Outros 1                                                                                                                                                       Outros 1
Outros 2                                                                                                                                                       Outros 2
Imposto de Renda e Contribuicao Social Pagos                                                                               Imposto de Renda e Contribuicao Social Pagos
Juros Pagos                                                                                                                                                 Juros Pagos
Passivo Atuarial Pago                                                                                                                             Passivo Atuarial Pago
Caixa Liquido Atividades de Investimento                                                                                       Caixa Liquido Atividades de Investimento
Valor Recebido Pela Alienacao (Aquisicao) de Investimentos                                                   Valor Recebido Pela Alienacao (Aquisicao) de Investimentos
Valor Pago Pela Aquisicao de Controladas e Coligadas                                                               Valor Pago Pela Aquisicao de Controladas e Coligadas
Compras de Imobilizado                                                                                                                           Compras de Imobilizado
Valor Recebido Pela Venda de Imobilizado                                                                                       Valor Recebido Pela Venda de Imobilizado
Compras de Ativos Intangiveis                                                                                                             Compras de Ativos Intangiveis
Dividendos Recebidos                                                                                                                               Dividendos Recebidos
Titulos e valores mobiliarios                                                                                                             Titulos e valores mobiliarios
Caixa Liquido Atividades de Financiamento                                                                                     Caixa Liquido Atividades de Financiamento
Ingressos de Emprestimos de Financiamentos e Debentures                                                         Ingressos de Emprestimos de Financiamentos e Debentures
Pagamento de Emprestimos e Financiamentos                                                                                     Pagamento de Emprestimos e Financiamentos
Recebimento Decorrente de Emissao de Acoes                                                                                   Recebimento Decorrente de Emissao de Acoes
Pagamento de Tributos Parcelados                                                                                                       Pagamento de Tributos Parcelados
Liquidacao de Operacoes de Swap                                                                                                         Liquidacao de Operacoes de Swap
Dividendos e Juros Sobre Capital Proprio Pagos                                                                           Dividendos e Juros Sobre Capital Proprio Pagos
Ganho de Capital                                                                                                                                       Ganho de Capital
Cessoes de credito contratadas                                                                                                           Cessoes de credito contratadas
Cessoes de credito liquidadas                                                                                                             Cessoes de credito liquidadas
Recebimento Por Aumento de Capital Social                                                                                     Recebimento Por Aumento de Capital Social
Reducao de capital em controlada  - participacao dos   acionistas nao controladores Reducao de capital em controlada  - participacao dos   acionistas nao controladores
Variacao Cambial s/ Caixa e Equivalentes                                                                                       Variacao Cambial s/ Caixa e Equivalentes
Aumento (Reducao) de Caixa e Equivalentes                                                                                     Aumento (Reducao) de Caixa e Equivalentes
Saldo Inicial de Caixa e Equivalentes                                                                                             Saldo Inicial de Caixa e Equivalentes
Saldo Final de Caixa e Equivalentes                                                                                                 Saldo Final de Caixa e Equivalentes
DVA                                                                                                                                                                 DVA
Receitas                                                                                                                                                       Receitas
Vendas de Mercadorias, Produtos e Servicos                                                                                   Vendas de Mercadorias, Produtos e Servicos
Outras Receitas                                                                                                                                         Outras Receitas
Receitas refs. a Construcao de Ativos Proprios                                                                           Receitas refs. a Construcao de Ativos Proprios
Provisao/Reversao de Crads. Liquidacao Duvidosa                                                                         Provisao/Reversao de Crads. Liquidacao Duvidosa
Insumos Adquiridos de Terceiros                                                                                                         Insumos Adquiridos de Terceiros
Custos Prods., Mercs. e Servs. Vendidos                                                                                         Custos Prods., Mercs. e Servs. Vendidos
Materiais, Energia, Servs. de Terceiros e Outros                                                                       Materiais, Energia, Servs. de Terceiros e Outros
Perda/Recuperacao de Valores Ativos                                                                                                 Perda/Recuperacao de Valores Ativos
Outros custos                                                                                                                                             Outros custos
Valor Adicionado Bruto                                                                                                                           Valor Adicionado Bruto
Retencoes                                                                                                                                                     Retencoes
Outras retencoes                                                                                                                                       Outras retencoes
Valor Adicionado Liquido Produzido                                                                                                   Valor Adicionado Liquido Produzido
Vlr Adicionado Recebido em Transferencia                                                                                       Vlr Adicionado Recebido em Transferencia
Outros resultados                                                                                                                                     Outros resultados
Ganhos e perdas atuariais                                                                                                                     Ganhos e perdas atuariais
Variacoes cambiais liquidas                                                                                                                 Variacoes cambiais liquidas
Valor Adicionado Total a Distribuir                                                                                                 Valor Adicionado Total a Distribuir
Distribuicao do Valor Adicionado                                                                                                       Distribuicao do Valor Adicionado
Pessoal                                                                                                                                                         Pessoal
Remuneracao Direta                                                                                                                                   Remuneracao Direta
Beneficios                                                                                                                                                   Beneficios
F.G.T.S.                                                                                                                                                       F.G.T.S.
Outros impostos                                                                                                                                         Outros impostos
Impostos, Taxas e Contribuicoes                                                                                                         Impostos, Taxas e Contribuicoes
Federais                                                                                                                                                       Federais
Estaduais                                                                                                                                                     Estaduais
Municipais                                                                                                                                                   Municipais
Remuneracao de Capitais de Terceiros                                                                                               Remuneracao de Capitais de Terceiros
Juros                                                                                                                                                             Juros
Alugueis                                                                                                                                                       Alugueis
Outras distrib                                                                                                                                           Outras distrib
Variacoes Cambiais Liquidas                                                                                                                 Variacoes Cambiais Liquidas
Outras                                                                                                                                                           Outras
Remuneracao de Capitais Proprios                                                                                                       Remuneracao de Capitais Proprios
Juros sobre o Capital Proprio                                                                                                             Juros sobre o Capital Proprio
Dividendos                                                                                                                                                   Dividendos
Lucros Retidos / Prejuizo do Periodo                                                                                               Lucros Retidos / Prejuizo do Periodo
Part. Nao Controladores nos Lucros Retidos                                                                                   Part. Nao Controladores nos Lucros Retidos
Mercado                                                                                                                                                         Mercado
IGP-DI                                                                                                                                                           IGP-DI
Fator de Correcao                                                                                                                                     Fator de Correcao
Cotacao USIM5                                                                                                                                             Cotacao USIM5
Numero de acoes                                                                                                                                         Numero de acoes
FIM                                                                                                                                                                 FIM
                                                                                    x
Ativo                                                                               1
Ativo Total                                                                         1
Ativo Circulante                                                                    1
Caixa e Equivalentes de Caixa                                                       1
Aplicacoes Financeiras                                                              1
Aplicacoes Financeiras Avaliadas a Valor Justo                                      2
Titulos para Negociacao                                                             2
Titulos Disponiveis para Venda                                                      2
Aplicacoes Financeiras Avaliadas ao Custo Amortizado                                2
Titulos Mantidos ata o Vencimento                                                   2
Contas a Receber                                                                    2
Clientes                                                                            2
Outras Contas a Receber subconta                                                    1
Estoques                                                                            3
Ativos Biologicos                                                                   2
Tributos a Recuperar                                                                1
Tributos Correntes a Recuperar                                                      1
Despesas Antecipadas                                                                2
Outros Ativos Circulantes                                                           1
Ativos Nao-Correntes a Venda                                                        2
Ativos de Operacoes Descontinuadas                                                  2
Outros                                                                              6
Impostos a Recuperar                                                                3
Imposto de Renda e Contribuicao Social Antecipados                                  2
Dividendos a Receber                                                                1
Adiantamentos a Fornecedores                                                        1
Outras Contas a Receber                                                             2
Instrumentos Financeiros                                                            4
Ativo Nao Circulante                                                                1
Ativo Realizavel a Longo Prazo                                                      1
Tributos Diferidos                                                                  2
Imposto de Renda e Contribuicao Social Diferidos                                    3
Creditos com Partes Relacionadas                                                    1
Creditos com Coligadas                                                              1
Creditos com Controladores                                                          1
Creditos com Outras Partes Relacionadas                                             1
Outros Ativos Nao Circulantes                                                       1
Tributos  Diferidos                                                                 1
Depositos Judiciais                                                                 2
Valores a receber Eletrobras                                                        1
Investimentos                                                                       1
Participacoes Societarias                                                           1
Participacoes em Coligadas                                                          1
Outras Participacoes Societarias                                                    1
Propriedades para Investimento                                                      1
Imobilizado                                                                         1
Imobilizado em Operacao                                                             1
Imobilizado Arrendado                                                               1
Imobilizado em Andamento                                                            1
Intangivel                                                                          1
Intangiveis                                                                         1
Contrato de Concessao                                                               1
Goodwill                                                                            1
Passivo                                                                             1
Passivo Total                                                                       1
Passivo Circulante                                                                  1
Obrigacoes Sociais e Trabalhistas                                                   1
Obrigacoes Sociais                                                                  1
Obrigacoes Trabalhistas                                                             1
Fornecedores                                                                        1
Fornecedores Nacionais                                                              1
Fornecedores Estrangeiros                                                           1
Obrigacoes Fiscais                                                                  1
Obrigacoes Fiscais Federais                                                         1
Imposto de Renda e Contribuicao Social a Pagar                                      1
Tributos a recolher                                                                 1
Salarios e Encargos Sociais                                                         1
Obrigacoes Fiscais Estaduais                                                        1
Obrigacoes Fiscais Municipais                                                       1
Emprestimos e Financiamentos                                                        2
Emprestimos e Financiamentos subconta                                               1
Em Moeda Nacional                                                                   2
Em Moeda Estrangeira                                                                2
Debentures                                                                          2
Financiamento por Arrendamento Financeiro                                           2
Outras Obrigacoes                                                                   2
Passivos com Partes Relacionadas                                                    2
Debitos com Coligadas                                                               2
Debitos com Controladores                                                           2
Debitos com Outras Partes Relacionadas                                              2
Dividendos e JCP a Pagar                                                            1
Dividendo Minimo Obrigatorio a Pagar                                                1
Obrigacoes por Pagamentos Baseados em Acoes                                         2
Tributos Parcelados                                                                 2
Adiantamentos de Clientes                                                           2
Contas a Pagar por Aquisicao de Investimentos                                       2
Contas a Pagar                                                                      1
Titulos a pagar - Forfaiting                                                        2
Provisoes                                                                           2
Provisoes Fiscais Previdenciarias Trabalhistas e Civeis                             2
Provisoes Fiscais                                                                   2
Provisoes Previdenciarias e Trabalhistas                                            2
Provisoes para Beneficios a Empregados                                              2
Provisoes Civeis                                                                    2
Outras Provisoes                                                                    2
Provisoes para Garantias                                                            2
Provisoes para Reestruturacao                                                       2
Provisoes para Passivos Ambientais e de Desativacao                                 2
Passivos sobre Ativos Nao-Correntes a Venda e Descontinuados                        2
Passivos sobre Ativos Nao-Correntes a Venda                                         2
Passivos sobre Ativos de Operacoes Descontinuadas                                   2
Passivo Nao Circulante                                                              1
Emprestimos e Financiamentos  subconta                                              1
Adiantamento para Futuro Aumento de Capital                                         2
Outros  subconta                                                                    1
Passivos Contingentes                                                               1
Lucros e Receitas a Apropriar                                                       1
Lucros a Apropriar                                                                  1
Receitas a Apropriar                                                                1
Subvencoes de Investimento a Apropriar                                              1
Patrimonio Liquido Consolidado                                                      1
Capital Social Realizado                                                            1
Reservas de Capital                                                                 1
Agio na Emissao de Acoes                                                            1
Reserva Especial de agio na Incorporacao                                            1
Alienacao de Bonus de Subscricao                                                    1
Opcoes Outorgadas                                                                   1
Acoes em Tesouraria RC                                                              1
Reservas de Reavaliacao                                                             1
Reservas de Lucros                                                                  1
Reserva Legal                                                                       1
Reserva Estatutaria                                                                 1
Reserva para Contingencias                                                          1
Reserva de Lucros a Realizar                                                        1
Reserva de Retencao de Lucros                                                       1
Reserva Especial para Dividendos Nao Distribuidos                                   1
Reserva de Incentivos Fiscais                                                       1
Dividendo Adicional Proposto                                                        1
Acoes em Tesouraria  RL                                                             1
Para Investimentos e Capital de Giro                                                1
Lucros/Prejuizos Acumulados                                                         1
Ajustes de Avaliacao Patrimonial                                                    1
Ajustes Acumulados de Conversao                                                     1
Outros Resultados Abrangentes                                                       2
Participacao dos Acionistas Nao Controladores                                       1
DRE                                                                                 1
Receita de Venda de Bens e/ou Servicos                                              1
Custo dos Bens e/ou Servicos Vendidos                                               1
Resultado Bruto                                                                     1
Despesas/Receitas Operacionais                                                      1
Despesas com Vendas                                                                 1
Despesas Gerais e Administrativas                                                   1
Perdas pela Nao Recuperabilidade de Ativos                                          1
Outras Receitas Operacionais                                                        1
Outras Despesas Operacionais                                                        1
Resultado de Equivalencia Patrimonial                                               2
Resultado Antes do Resultado Financeiro e dos Tributos                              1
Resultado Financeiro                                                                1
Receitas Financeiras                                                                2
Despesas Financeiras                                                                1
Resultado Antes dos Tributos sobre o Lucro                                          1
Imposto de Renda e Contribuicao Social sobre o Lucro                                1
Corrente                                                                            1
Diferido                                                                            1
Resultado Liquido das Operacoes Continuadas                                         1
Resultado Liquido de Operacoes Descontinuadas                                       1
Lucro/Prejuizo Liquido das Operacoes Descontinuadas                                 1
Ganhos/Perdas Liquidas sobre Ativos de Operacoes Descontinuadas                     1
Lucro/Prejuizo Consolidado do Periodo                                               1
Atribuido a Socios da Empresa Controladora                                          2
Atribuido a Socios Nao Controladores                                                2
Lucro por Acao - (Reais / Acao)                                                     1
Lucro Basico por Acao                                                               1
ON                                                                                  1
PN                                                                                  1
Lucro Diluido por Acao                                                              1
ON 1                                                                                1
PN 1                                                                                1
DRA                                                                                 1
Lucro Liquido Consolidado do Periodo                                                1
Ganho (perda) Atuarial com Beneficios de Aposentadoria                              1
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes                     1
Hedge de Fluxo de Caixa na Controladora                                             1
Hedge de Fluxo de Caixa em Coligada                                                 1
Resultado Abrangente Consolidado do Periodo                                         1
DFC                                                                                 1
Caixa Liquido Atividades Operacionais                                               1
Caixa Gerado nas Operacoes                                                          1
Lucro Liquido do Exercicio                                                          1
Encargos e Variacoes Monetarias/Cambiais Liquidas                                   1
Despesas de Juros                                                                   1
Depreciacao, Amortizacao e Exaustao                                                 2
Resultado na Venda de Imobilizado                                                   1
Resultado na Alienacao de Operacoes Descontinuadas                                  1
Participacoes nos Resultados de controladas, controladas em conjunto e coligadas    1
Constituicao (Reversao) e Provisoes                                                 1
Perdas (Ganhos) Atuariais                                                           1
Plano de Outorga de Acoes                                                           1
Perda (reversao) por valor recuperavel de ativos (Impairment)                       1
Variacoes nos Ativos e Passivos                                                     1
Titulos e Valores Mobiliarios                                                       1
Contas a Receber de Clientes                                                        1
Valores a Receber de Empresas Ligadas                                               1
Fornecedores, Empreiteiros e Fretes                                                 1
Valores a Pagar a Empresas Ligadas                                                  1
Tributos a Recolher                                                                 1
Outros 1                                                                            1
Outros 2                                                                            1
Imposto de Renda e Contribuicao Social Pagos                                        1
Juros Pagos                                                                         1
Passivo Atuarial Pago                                                               1
Caixa Liquido Atividades de Investimento                                            1
Valor Recebido Pela Alienacao (Aquisicao) de Investimentos                          1
Valor Pago Pela Aquisicao de Controladas e Coligadas                                1
Compras de Imobilizado                                                              1
Valor Recebido Pela Venda de Imobilizado                                            1
Compras de Ativos Intangiveis                                                       1
Dividendos Recebidos                                                                1
Titulos e valores mobiliarios                                                       1
Caixa Liquido Atividades de Financiamento                                           1
Ingressos de Emprestimos de Financiamentos e Debentures                             1
Pagamento de Emprestimos e Financiamentos                                           1
Recebimento Decorrente de Emissao de Acoes                                          1
Pagamento de Tributos Parcelados                                                    1
Liquidacao de Operacoes de Swap                                                     1
Dividendos e Juros Sobre Capital Proprio Pagos                                      1
Ganho de Capital                                                                    1
Cessoes de credito contratadas                                                      1
Cessoes de credito liquidadas                                                       1
Recebimento Por Aumento de Capital Social                                           1
Reducao de capital em controlada  - participacao dos   acionistas nao controladores 1
Variacao Cambial s/ Caixa e Equivalentes                                            1
Aumento (Reducao) de Caixa e Equivalentes                                           1
Saldo Inicial de Caixa e Equivalentes                                               1
Saldo Final de Caixa e Equivalentes                                                 1
DVA                                                                                 1
Receitas                                                                            1
Vendas de Mercadorias, Produtos e Servicos                                          1
Outras Receitas                                                                     1
Receitas refs. a Construcao de Ativos Proprios                                      1
Provisao/Reversao de Crads. Liquidacao Duvidosa                                     1
Insumos Adquiridos de Terceiros                                                     1
Custos Prods., Mercs. e Servs. Vendidos                                             1
Materiais, Energia, Servs. de Terceiros e Outros                                    1
Perda/Recuperacao de Valores Ativos                                                 1
Outros custos                                                                       1
Valor Adicionado Bruto                                                              1
Retencoes                                                                           1
Outras retencoes                                                                    1
Valor Adicionado Liquido Produzido                                                  1
Vlr Adicionado Recebido em Transferencia                                            1
Outros resultados                                                                   1
Ganhos e perdas atuariais                                                           1
Variacoes cambiais liquidas                                                         1
Valor Adicionado Total a Distribuir                                                 1
Distribuicao do Valor Adicionado                                                    1
Pessoal                                                                             1
Remuneracao Direta                                                                  1
Beneficios                                                                          1
F.G.T.S.                                                                            1
Outros impostos                                                                     1
Impostos, Taxas e Contribuicoes                                                     1
Federais                                                                            1
Estaduais                                                                           1
Municipais                                                                          1
Remuneracao de Capitais de Terceiros                                                1
Juros                                                                               1
Alugueis                                                                            1
Outras distrib                                                                      1
Variacoes Cambiais Liquidas                                                         1
Outras                                                                              1
Remuneracao de Capitais Proprios                                                    1
Juros sobre o Capital Proprio                                                       1
Dividendos                                                                          1
Lucros Retidos / Prejuizo do Periodo                                                1
Part. Nao Controladores nos Lucros Retidos                                          1
Mercado                                                                             1
IGP-DI                                                                              1
Fator de Correcao                                                                   1
Cotacao USIM5                                                                       1
Numero de acoes                                                                     1
FIM                                                                                 1
a=length(rownovo)
notuniq=sapply(clounique, function(x)(length(which(col1 == x))))

row.names(data.bulk)=rownovo

b=length(row.names(data.bulk))

if (a==b) {print("Linhas resolvidas")
   # renomeia linhas dos dados com nomes unicos
  }else
  {
    print("Linhas nao resolvidas")
    stop()
  }
[1] "Linhas resolvidas"
names(data.bulk)
 [1] "Conta"  "2018"   "2017"   "2016"   "2015"   "2014"   "2013"  
 [8] "2012"   "2011"   "2010"   "2009"   "chk"    "Classe"
str(data.bulk)
'data.frame':   336 obs. of  13 variables:
 $ Conta : chr  "Ativo" "Ativo Total" "Ativo Circulante" "Caixa e Equivalentes de Caixa" ...
 $ 2018  : num  NA 26523851 8324317 1106790 586559 ...
 $ 2017  : num  NA 25984477 7254755 1770573 543715 ...
 $ 2016  : num  NA 26254745 6420478 719870 1537584 ...
 $ 2015  : num  NA 27758332 6894842 800272 1224185 ...
 $ 2014  : num  NA 30484062 8245211 2109812 742091 ...
 $ 2013  : num  NA 31357994 9460294 2633187 835629 ...
 $ 2012  : num  NA 32774219 10780645 3180764 1537558 ...
 $ 2011  : num  NA 33360425 12616945 2901312 2289383 ...
 $ 2010  : num  NA 31784751 12270576 4145779 397787 ...
 $ 2009  : num  NA 25940930 9239835 3083047 2098196 ...
 $ chk   : chr  "" "Ativo Total" "Ativo Circulante" "Caixa e Equivalentes de Caixa" ...
 $ Classe: chr  "AT" "AT" "AC" "AC" ...

Análise Fundamentalista (II)

Checar dados globais e declarar funções que serão utilizadas

head(data.bulk)
                                                                                             Conta
Ativo - AT                                                                                   Ativo
Ativo Total - AT                                                                       Ativo Total
Ativo Circulante - AC                                                             Ativo Circulante
Caixa e Equivalentes de Caixa - AC                                   Caixa e Equivalentes de Caixa
Aplicacoes Financeiras - AC                                                 Aplicacoes Financeiras
Aplicacoes Financeiras Avaliadas a Valor Justo - AC Aplicacoes Financeiras Avaliadas a Valor Justo
                                                        2018     2017
Ativo - AT                                                NA       NA
Ativo Total - AT                                    26523851 25984477
Ativo Circulante - AC                                8324317  7254755
Caixa e Equivalentes de Caixa - AC                   1106790  1770573
Aplicacoes Financeiras - AC                           586559   543715
Aplicacoes Financeiras Avaliadas a Valor Justo - AC        0        0
                                                        2016     2015
Ativo - AT                                                NA       NA
Ativo Total - AT                                    26254745 27758332
Ativo Circulante - AC                                6420478  6894842
Caixa e Equivalentes de Caixa - AC                    719870   800272
Aplicacoes Financeiras - AC                          1537584  1224185
Aplicacoes Financeiras Avaliadas a Valor Justo - AC        0        0
                                                        2014     2013
Ativo - AT                                                NA       NA
Ativo Total - AT                                    30484062 31357994
Ativo Circulante - AC                                8245211  9460294
Caixa e Equivalentes de Caixa - AC                   2109812  2633187
Aplicacoes Financeiras - AC                           742091   835629
Aplicacoes Financeiras Avaliadas a Valor Justo - AC        0        0
                                                        2012     2011
Ativo - AT                                                NA       NA
Ativo Total - AT                                    32774219 33360425
Ativo Circulante - AC                               10780645 12616945
Caixa e Equivalentes de Caixa - AC                   3180764  2901312
Aplicacoes Financeiras - AC                          1537558  2289383
Aplicacoes Financeiras Avaliadas a Valor Justo - AC        0        0
                                                        2010     2009
Ativo - AT                                                NA       NA
Ativo Total - AT                                    31784751 25940930
Ativo Circulante - AC                               12270576  9239835
Caixa e Equivalentes de Caixa - AC                   4145779  3083047
Aplicacoes Financeiras - AC                           397787  2098196
Aplicacoes Financeiras Avaliadas a Valor Justo - AC        0        0
                                                                                               chk
Ativo - AT                                                                                        
Ativo Total - AT                                                                       Ativo Total
Ativo Circulante - AC                                                             Ativo Circulante
Caixa e Equivalentes de Caixa - AC                                   Caixa e Equivalentes de Caixa
Aplicacoes Financeiras - AC                                                 Aplicacoes Financeiras
Aplicacoes Financeiras Avaliadas a Valor Justo - AC Aplicacoes Financeiras Avaliadas a Valor Justo
                                                    Classe
Ativo - AT                                              AT
Ativo Total - AT                                        AT
Ativo Circulante - AC                                   AC
Caixa e Equivalentes de Caixa - AC                      AC
Aplicacoes Financeiras - AC                             AC
Aplicacoes Financeiras Avaliadas a Valor Justo - AC     AC
tail(data.bulk)
                                     Conta             2018
Mercado - MERC                     Mercado               NA
IGP-DI - MERC                       IGP-DI          0.07102
Fator de Correcao - MERC Fator de Correcao          1.00000
Cotacao USIM5 - MERC         Cotacao USIM5          9.22000
Numero de acoes - MERC     Numero de acoes 1253079108.00000
FIM - FIM                              FIM               NA
                                    2017             2016            2015
Mercado - MERC                        NA               NA              NA
IGP-DI - MERC                    -0.0042          0.07150          0.1068
Fator de Correcao - MERC          1.0710          0.99162          1.1481
Cotacao USIM5 - MERC              9.1000          4.10000          1.5500
Numero de acoes - MERC   1253079108.0000 1253079108.00000 1013786190.0000
FIM - FIM                             NA               NA              NA
                                    2014            2013            2012
Mercado - MERC                        NA              NA              NA
IGP-DI - MERC                     0.0378          0.0553          0.0811
Fator de Correcao - MERC          1.2199          1.1551          1.3372
Cotacao USIM5 - MERC              5.0500         14.2100         12.8000
Numero de acoes - MERC   1013786190.0000 1013786190.0000 1013786190.0000
FIM - FIM                             NA              NA              NA
                                    2011            2010           2009
Mercado - MERC                        NA              NA             NA
IGP-DI - MERC                     0.0501          0.1131        -0.0144
Fator de Correcao - MERC          1.4585          1.4566         1.7811
Cotacao USIM5 - MERC             10.1500         19.1600        51.0000
Numero de acoes - MERC   1013786190.0000 1013786190.0000 506893095.0000
FIM - FIM                             NA              NA             NA
                         chk Classe
Mercado - MERC                 MERC
IGP-DI - MERC                  MERC
Fator de Correcao - MERC       MERC
Cotacao USIM5 - MERC           MERC
Numero de acoes - MERC         MERC
FIM - FIM                       FIM
#class(data.bulk)
#rownames(data.bulk)
#colnames(data.bulk)
 
# Funcoes

saveplot <- function(myPlot, filename) {
  png(filename,width=1800 ,heigh=1200  ,res=180)
  print(myPlot)
  dev.off()
}


f.dec = function(x, k) trimws(format(round(x, k), nsmall=k))

f.perc= function(x) paste0((x*100), "%")

Análise Fundamentalista (III)

Indentificar os índices dos grupos e separa os grupos de contas.

Explore as novas Tabelas…

# Identificar Índices das linhas Ativo, PL, DRE, ...

header.Ativo= as.numeric(which(rownames(data.bulk) == "Ativo - AT"))


header.Passivo=as.numeric(which(rownames(data.bulk) =="Passivo - PT"))


header.DRE=as.numeric(which(rownames(data.bulk) == "DRE - DRE"))


header.DRA=as.numeric(which(rownames(data.bulk) == "DRA - DRA"))


header.DFC=as.numeric(which(rownames(data.bulk) == "DFC - DFC"))


header.DVA=as.numeric(which(rownames(data.bulk) == "DVA - DVA"))


header.MERC=as.numeric(which(rownames(data.bulk) =="Mercado - MERC"))


header.FIM=as.numeric(which(rownames(data.bulk) =="FIM - FIM"))



# Separar os conjuntos de contas Ativo, Passivo, DRE, RA, DFC...

Data.Ativo=data.bulk[header.Ativo:(header.Passivo-1),]
head(Data.Ativo)
                                                                                             Conta
Ativo - AT                                                                                   Ativo
Ativo Total - AT                                                                       Ativo Total
Ativo Circulante - AC                                                             Ativo Circulante
Caixa e Equivalentes de Caixa - AC                                   Caixa e Equivalentes de Caixa
Aplicacoes Financeiras - AC                                                 Aplicacoes Financeiras
Aplicacoes Financeiras Avaliadas a Valor Justo - AC Aplicacoes Financeiras Avaliadas a Valor Justo
                                                        2018     2017
Ativo - AT                                                NA       NA
Ativo Total - AT                                    26523851 25984477
Ativo Circulante - AC                                8324317  7254755
Caixa e Equivalentes de Caixa - AC                   1106790  1770573
Aplicacoes Financeiras - AC                           586559   543715
Aplicacoes Financeiras Avaliadas a Valor Justo - AC        0        0
                                                        2016     2015
Ativo - AT                                                NA       NA
Ativo Total - AT                                    26254745 27758332
Ativo Circulante - AC                                6420478  6894842
Caixa e Equivalentes de Caixa - AC                    719870   800272
Aplicacoes Financeiras - AC                          1537584  1224185
Aplicacoes Financeiras Avaliadas a Valor Justo - AC        0        0
                                                        2014     2013
Ativo - AT                                                NA       NA
Ativo Total - AT                                    30484062 31357994
Ativo Circulante - AC                                8245211  9460294
Caixa e Equivalentes de Caixa - AC                   2109812  2633187
Aplicacoes Financeiras - AC                           742091   835629
Aplicacoes Financeiras Avaliadas a Valor Justo - AC        0        0
                                                        2012     2011
Ativo - AT                                                NA       NA
Ativo Total - AT                                    32774219 33360425
Ativo Circulante - AC                               10780645 12616945
Caixa e Equivalentes de Caixa - AC                   3180764  2901312
Aplicacoes Financeiras - AC                          1537558  2289383
Aplicacoes Financeiras Avaliadas a Valor Justo - AC        0        0
                                                        2010     2009
Ativo - AT                                                NA       NA
Ativo Total - AT                                    31784751 25940930
Ativo Circulante - AC                               12270576  9239835
Caixa e Equivalentes de Caixa - AC                   4145779  3083047
Aplicacoes Financeiras - AC                           397787  2098196
Aplicacoes Financeiras Avaliadas a Valor Justo - AC        0        0
                                                                                               chk
Ativo - AT                                                                                        
Ativo Total - AT                                                                       Ativo Total
Ativo Circulante - AC                                                             Ativo Circulante
Caixa e Equivalentes de Caixa - AC                                   Caixa e Equivalentes de Caixa
Aplicacoes Financeiras - AC                                                 Aplicacoes Financeiras
Aplicacoes Financeiras Avaliadas a Valor Justo - AC Aplicacoes Financeiras Avaliadas a Valor Justo
                                                    Classe
Ativo - AT                                              AT
Ativo Total - AT                                        AT
Ativo Circulante - AC                                   AC
Caixa e Equivalentes de Caixa - AC                      AC
Aplicacoes Financeiras - AC                             AC
Aplicacoes Financeiras Avaliadas a Valor Justo - AC     AC
tail(Data.Ativo)
                                                  Conta   2018   2017
Imobilizado Arrendado - ANC       Imobilizado Arrendado      0      0
Imobilizado em Andamento - ANC Imobilizado em Andamento 846012 844225
Intangivel - ANC                             Intangivel 695596 677190
Intangiveis - ANC                           Intangiveis      0      0
Contrato de Concessao - ANC       Contrato de Concessao      0      0
Goodwill - ANC                                 Goodwill      0      0
                                 2016    2015    2014    2013    2012
Imobilizado Arrendado - ANC         0       0       0       0       0
Imobilizado em Andamento - ANC 892605 1425978 2011008 1916903 2209796
Intangivel - ANC               693918  337922 2377679 2400577 2442648
Intangiveis - ANC                   0       0       0       0       0
Contrato de Concessao - ANC         0       0       0       0       0
Goodwill - ANC                      0       0       0       0       0
                                  2011    2010    2009
Imobilizado Arrendado - ANC          0       0       0
Imobilizado em Andamento - ANC 5431352 4530621 2884268
Intangivel - ANC               2453952 1741850 1737495
Intangiveis - ANC                    0       0       0
Contrato de Concessao - ANC          0       0       0
Goodwill - ANC                       0       0       0
                                                    chk Classe
Imobilizado Arrendado - ANC       Imobilizado Arrendado    ANC
Imobilizado em Andamento - ANC Imobilizado em Andamento    ANC
Intangivel - ANC                             Intangivel    ANC
Intangiveis - ANC                           Intangiveis    ANC
Contrato de Concessao - ANC       Contrato de Concessao    ANC
Goodwill - ANC                                 Goodwill    ANC
Data.Passivo=data.bulk[header.Passivo:(header.DRE-1),]
head(Data.Passivo)
                                                                   Conta
Passivo - PT                                                     Passivo
Passivo Total - PT                                         Passivo Total
Passivo Circulante - PC                               Passivo Circulante
Obrigacoes Sociais e Trabalhistas - PC Obrigacoes Sociais e Trabalhistas
Obrigacoes Sociais - PC                               Obrigacoes Sociais
Obrigacoes Trabalhistas - PC                     Obrigacoes Trabalhistas
                                           2018     2017     2016     2015
Passivo - PT                                 NA       NA       NA       NA
Passivo Total - PT                     26523851 25984477 26254745 27758332
Passivo Circulante - PC                 3335670  3046420  1752244  4495923
Obrigacoes Sociais e Trabalhistas - PC   205583   188735   197076   278149
Obrigacoes Sociais - PC                       0        0        0        0
Obrigacoes Trabalhistas - PC                  0        0        0        0
                                           2014     2013     2012     2011
Passivo - PT                                 NA       NA       NA       NA
Passivo Total - PT                     30484062 31357994 32774219 33360425
Passivo Circulante - PC                 4769426  5087491  5402921  4092173
Obrigacoes Sociais e Trabalhistas - PC   280284   250849        0        0
Obrigacoes Sociais - PC                       0        0        0        0
Obrigacoes Trabalhistas - PC                  0        0        0        0
                                           2010     2009
Passivo - PT                                 NA       NA
Passivo Total - PT                     31784751 25940930
Passivo Circulante - PC                 3497015  3036027
Obrigacoes Sociais e Trabalhistas - PC        0   206519
Obrigacoes Sociais - PC                       0        0
Obrigacoes Trabalhistas - PC                  0        0
                                                                     chk
Passivo - PT                                                            
Passivo Total - PT                                         Passivo Total
Passivo Circulante - PC                               Passivo Circulante
Obrigacoes Sociais e Trabalhistas - PC Obrigacoes Sociais e Trabalhistas
Obrigacoes Sociais - PC                               Obrigacoes Sociais
Obrigacoes Trabalhistas - PC                     Obrigacoes Trabalhistas
                                       Classe
Passivo - PT                               PT
Passivo Total - PT                         PT
Passivo Circulante - PC                    PC
Obrigacoes Sociais e Trabalhistas - PC     PC
Obrigacoes Sociais - PC                    PC
Obrigacoes Trabalhistas - PC               PC
tail(Data.Passivo)
                                                                                           Conta
Para Investimentos e Capital de Giro - PL                   Para Investimentos e Capital de Giro
Lucros/Prejuizos Acumulados - PL                                     Lucros/Prejuizos Acumulados
Ajustes de Avaliacao Patrimonial - PL                           Ajustes de Avaliacao Patrimonial
Ajustes Acumulados de Conversao - PL                             Ajustes Acumulados de Conversao
Outros Resultados Abrangentes - PL                                 Outros Resultados Abrangentes
Participacao dos Acionistas Nao Controladores - PL Participacao dos Acionistas Nao Controladores
                                                      2018    2017    2016
Para Investimentos e Capital de Giro - PL           718958  190556       0
Lucros/Prejuizos Acumulados - PL                         0       0       0
Ajustes de Avaliacao Patrimonial - PL               -10330   60546   26000
Ajustes Acumulados de Conversao - PL                     0       0       0
Outros Resultados Abrangentes - PL                       0       0       0
Participacao dos Acionistas Nao Controladores - PL 1431093 1409169 1655894
                                                      2015    2014    2013
Para Investimentos e Capital de Giro - PL                0  157650       0
Lucros/Prejuizos Acumulados - PL                         0       0       0
Ajustes de Avaliacao Patrimonial - PL               311748  419753  549670
Ajustes Acumulados de Conversao - PL                     0       0       0
Outros Resultados Abrangentes - PL                       0       0       0
Participacao dos Acionistas Nao Controladores - PL 1584879 2041951 2122037
                                                      2012    2011    2010
Para Investimentos e Capital de Giro - PL           150812  770250  718784
Lucros/Prejuizos Acumulados - PL                         0       0       0
Ajustes de Avaliacao Patrimonial - PL               367361  640697  965607
Ajustes Acumulados de Conversao - PL                     0       0       0
Outros Resultados Abrangentes - PL                       0       0       0
Participacao dos Acionistas Nao Controladores - PL 1904644 1730412 1596838
                                                      2009
Para Investimentos e Capital de Giro - PL          2705686
Lucros/Prejuizos Acumulados - PL                    -41277
Ajustes de Avaliacao Patrimonial - PL               221901
Ajustes Acumulados de Conversao - PL                     0
Outros Resultados Abrangentes - PL                       0
Participacao dos Acionistas Nao Controladores - PL  355406
                                                                                             chk
Para Investimentos e Capital de Giro - PL                   Para Investimentos e Capital de Giro
Lucros/Prejuizos Acumulados - PL                                     Lucros/Prejuizos Acumulados
Ajustes de Avaliacao Patrimonial - PL                           Ajustes de Avaliacao Patrimonial
Ajustes Acumulados de Conversao - PL                             Ajustes Acumulados de Conversao
Outros Resultados Abrangentes - PL                                 Outros Resultados Abrangentes
Participacao dos Acionistas Nao Controladores - PL Participacao dos Acionistas Nao Controladores
                                                   Classe
Para Investimentos e Capital de Giro - PL              PL
Lucros/Prejuizos Acumulados - PL                       PL
Ajustes de Avaliacao Patrimonial - PL                  PL
Ajustes Acumulados de Conversao - PL                   PL
Outros Resultados Abrangentes - PL                     PL
Participacao dos Acionistas Nao Controladores - PL     PL
Data.DRE=data.bulk[header.DRE:(header.DRA-1),]
head(Data.DRE)
                                                                              Conta
DRE - DRE                                                                       DRE
Receita de Venda de Bens e/ou Servicos - DRE Receita de Venda de Bens e/ou Servicos
Custo dos Bens e/ou Servicos Vendidos - DRE   Custo dos Bens e/ou Servicos Vendidos
Resultado Bruto - DRE                                               Resultado Bruto
Despesas/Receitas Operacionais - DRE                 Despesas/Receitas Operacionais
Despesas com Vendas - DRE                                       Despesas com Vendas
                                                  2018     2017     2016
DRE - DRE                                           NA       NA       NA
Receita de Venda de Bens e/ou Servicos - DRE  13736780 10734118  8454200
Custo dos Bens e/ou Servicos Vendidos - DRE  -11521694 -9099024 -7966878
Resultado Bruto - DRE                          2215086  1635094   487322
Despesas/Receitas Operacionais - DRE          -1072815  -751224  -708914
Despesas com Vendas - DRE                      -337404  -250950  -272731
                                                  2015      2014      2013
DRE - DRE                                           NA        NA        NA
Receita de Venda de Bens e/ou Servicos - DRE  10185570  11741629  12829467
Custo dos Bens e/ou Servicos Vendidos - DRE  -10013018 -10704864 -11353664
Resultado Bruto - DRE                           172552   1036765   1475803
Despesas/Receitas Operacionais - DRE          -3801758   -330017   -774923
Despesas com Vendas - DRE                      -258141   -290930   -336443
                                                  2012      2011      2010
DRE - DRE                                           NA        NA        NA
Receita de Venda de Bens e/ou Servicos - DRE  12708799  11901959  12962395
Custo dos Bens e/ou Servicos Vendidos - DRE  -12048300 -10607791 -10431539
Resultado Bruto - DRE                           660499   1294168   2530856
Despesas/Receitas Operacionais - DRE           -798974   -601349   -570413
Despesas com Vendas - DRE                      -372937   -458568   -374254
                                                 2009
DRE - DRE                                          NA
Receita de Venda de Bens e/ou Servicos - DRE 10924140
Custo dos Bens e/ou Servicos Vendidos - DRE  -9440282
Resultado Bruto - DRE                         1483858
Despesas/Receitas Operacionais - DRE          -309418
Despesas com Vendas - DRE                     -284139
                                                                                chk
DRE - DRE                                                                          
Receita de Venda de Bens e/ou Servicos - DRE Receita de Venda de Bens e/ou Servicos
Custo dos Bens e/ou Servicos Vendidos - DRE   Custo dos Bens e/ou Servicos Vendidos
Resultado Bruto - DRE                                               Resultado Bruto
Despesas/Receitas Operacionais - DRE                 Despesas/Receitas Operacionais
Despesas com Vendas - DRE                                       Despesas com Vendas
                                             Classe
DRE - DRE                                       DRE
Receita de Venda de Bens e/ou Servicos - DRE    DRE
Custo dos Bens e/ou Servicos Vendidos - DRE     DRE
Resultado Bruto - DRE                           DRE
Despesas/Receitas Operacionais - DRE            DRE
Despesas com Vendas - DRE                       DRE
tail(Data.DRE)
                                              Conta 2018 2017 2016  2015
Lucro Basico por Acao - DRE   Lucro Basico por Acao 0.00 0.00  0.0  0.00
ON - DRE                                         ON 0.57 0.18 -0.6 -3.28
PN - DRE                                         PN 0.62 0.20 -0.6 -3.28
Lucro Diluido por Acao - DRE Lucro Diluido por Acao 0.00 0.00  0.0  0.00
ON 1 - DRE                                     ON 1 0.57 0.18 -0.6 -3.28
PN 1 - DRE                                     PN 1 0.62 0.20 -0.6 -3.28
                             2014  2013  2012 2011 2010 2009
Lucro Basico por Acao - DRE  0.00  0.00  0.00 0.00 0.00 0.00
ON - DRE                     0.13 -0.14 -0.62 0.23 1.52 1.23
PN - DRE                     0.14 -0.14 -0.68 0.25 1.67 1.35
Lucro Diluido por Acao - DRE 0.00  0.00  0.00 0.00 0.00 0.00
ON 1 - DRE                   0.13 -0.14 -0.62 0.23 1.52 1.23
PN 1 - DRE                   0.14 -0.14 -0.68 0.25 1.67 1.35
                                                chk Classe
Lucro Basico por Acao - DRE   Lucro Basico por Acao    DRE
ON - DRE                                         ON    DRE
PN - DRE                                         PN    DRE
Lucro Diluido por Acao - DRE Lucro Diluido por Acao    DRE
ON 1 - DRE                                       ON    DRE
PN 1 - DRE                                       PN    DRE
Data.DRA=data.bulk[header.DRA:(header.DFC-1),]
head(Data.DRA)
                                                                                                                                Conta
DRA - DRA                                                                                                                         DRA
Lucro Liquido Consolidado do Periodo - DRA                                                       Lucro Liquido Consolidado do Periodo
Outros Resultados Abrangentes - DRA                                                                     Outros Resultados Abrangentes
Ganho (perda) Atuarial com Beneficios de Aposentadoria - DRA                   Ganho (perda) Atuarial com Beneficios de Aposentadoria
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA Variacao Cambial de Coligada no Exterior e Outras Movimentacoes
Hedge de Fluxo de Caixa na Controladora - DRA                                                 Hedge de Fluxo de Caixa na Controladora
                                                                        2018
DRA - DRA                                                                 NA
Lucro Liquido Consolidado do Periodo - DRA                            828695
Outros Resultados Abrangentes - DRA                                   -59166
Ganho (perda) Atuarial com Beneficios de Aposentadoria - DRA          -59166
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA      0
Hedge de Fluxo de Caixa na Controladora - DRA                              0
                                                                        2017
DRA - DRA                                                                 NA
Lucro Liquido Consolidado do Periodo - DRA                            315080
Outros Resultados Abrangentes - DRA                                    60444
Ganho (perda) Atuarial com Beneficios de Aposentadoria - DRA           60444
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA      0
Hedge de Fluxo de Caixa na Controladora - DRA                              0
                                                                         2016
DRA - DRA                                                                  NA
Lucro Liquido Consolidado do Periodo - DRA                            -576843
Outros Resultados Abrangentes - DRA                                   -268065
Ganho (perda) Atuarial com Beneficios de Aposentadoria - DRA          -268065
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA       0
Hedge de Fluxo de Caixa na Controladora - DRA                               0
                                                                          2015
DRA - DRA                                                                   NA
Lucro Liquido Consolidado do Periodo - DRA                            -3684977
Outros Resultados Abrangentes - DRA                                     -93379
Ganho (perda) Atuarial com Beneficios de Aposentadoria - DRA            -93379
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA        0
Hedge de Fluxo de Caixa na Controladora - DRA                                0
                                                                         2014
DRA - DRA                                                                  NA
Lucro Liquido Consolidado do Periodo - DRA                             208479
Outros Resultados Abrangentes - DRA                                    -98059
Ganho (perda) Atuarial com Beneficios de Aposentadoria - DRA          -101190
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA       0
Hedge de Fluxo de Caixa na Controladora - DRA                            3131
                                                                        2013
DRA - DRA                                                                 NA
Lucro Liquido Consolidado do Periodo - DRA                             16791
Outros Resultados Abrangentes - DRA                                   147848
Ganho (perda) Atuarial com Beneficios de Aposentadoria - DRA           29277
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA    105
Hedge de Fluxo de Caixa na Controladora - DRA                         118466
                                                                         2012
DRA - DRA                                                                  NA
Lucro Liquido Consolidado do Periodo - DRA                            -531300
Outros Resultados Abrangentes - DRA                                   -229758
Ganho (perda) Atuarial com Beneficios de Aposentadoria - DRA          -250762
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA   -1134
Hedge de Fluxo de Caixa na Controladora - DRA                           22138
                                                                         2011
DRA - DRA                                                                  NA
Lucro Liquido Consolidado do Periodo - DRA                             404133
Outros Resultados Abrangentes - DRA                                   -130507
Ganho (perda) Atuarial com Beneficios de Aposentadoria - DRA          -154174
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA  161624
Hedge de Fluxo de Caixa na Controladora - DRA                         -143735
                                                                         2010
DRA - DRA                                                                  NA
Lucro Liquido Consolidado do Periodo - DRA                            1583650
Outros Resultados Abrangentes - DRA                                   -233497
Ganho (perda) Atuarial com Beneficios de Aposentadoria - DRA          -187551
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA  -48512
Hedge de Fluxo de Caixa na Controladora - DRA                               0
                                                                         2009
DRA - DRA                                                                  NA
Lucro Liquido Consolidado do Periodo - DRA                            1275455
Outros Resultados Abrangentes - DRA                                   -638567
Ganho (perda) Atuarial com Beneficios de Aposentadoria - DRA            46416
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA -676612
Hedge de Fluxo de Caixa na Controladora - DRA                               0
                                                                                                                                  chk
DRA - DRA                                                                                                                            
Lucro Liquido Consolidado do Periodo - DRA                                                       Lucro Liquido Consolidado do Periodo
Outros Resultados Abrangentes - DRA                                                                     Outros Resultados Abrangentes
Ganho (perda) Atuarial com Beneficios de Aposentadoria - DRA                   Ganho (perda) Atuarial com Beneficios de Aposentadoria
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA Variacao Cambial de Coligada no Exterior e Outras Movimentacoes
Hedge de Fluxo de Caixa na Controladora - DRA                                                 Hedge de Fluxo de Caixa na Controladora
                                                                      Classe
DRA - DRA                                                                DRA
Lucro Liquido Consolidado do Periodo - DRA                               DRA
Outros Resultados Abrangentes - DRA                                      DRA
Ganho (perda) Atuarial com Beneficios de Aposentadoria - DRA             DRA
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA    DRA
Hedge de Fluxo de Caixa na Controladora - DRA                            DRA
tail(Data.DRA)
                                                                                                                                Conta
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA Variacao Cambial de Coligada no Exterior e Outras Movimentacoes
Hedge de Fluxo de Caixa na Controladora - DRA                                                 Hedge de Fluxo de Caixa na Controladora
Hedge de Fluxo de Caixa em Coligada - DRA                                                         Hedge de Fluxo de Caixa em Coligada
Resultado Abrangente Consolidado do Periodo - DRA                                         Resultado Abrangente Consolidado do Periodo
Atribuido a Socios da Empresa Controladora - DRA                                           Atribuido a Socios da Empresa Controladora
Atribuido a Socios Nao Controladores - DRA                                                       Atribuido a Socios Nao Controladores
                                                                        2018
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA      0
Hedge de Fluxo de Caixa na Controladora - DRA                              0
Hedge de Fluxo de Caixa em Coligada - DRA                                  0
Resultado Abrangente Consolidado do Periodo - DRA                     769529
Atribuido a Socios da Empresa Controladora - DRA                      667509
Atribuido a Socios Nao Controladores - DRA                            102020
                                                                        2017
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA      0
Hedge de Fluxo de Caixa na Controladora - DRA                              0
Hedge de Fluxo de Caixa em Coligada - DRA                                  0
Resultado Abrangente Consolidado do Periodo - DRA                     375524
Atribuido a Socios da Empresa Controladora - DRA                      292707
Atribuido a Socios Nao Controladores - DRA                             82817
                                                                         2016
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA       0
Hedge de Fluxo de Caixa na Controladora - DRA                               0
Hedge de Fluxo de Caixa em Coligada - DRA                                   0
Resultado Abrangente Consolidado do Periodo - DRA                     -844908
Atribuido a Socios da Empresa Controladora - DRA                      -937783
Atribuido a Socios Nao Controladores - DRA                              92875
                                                                          2015
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA        0
Hedge de Fluxo de Caixa na Controladora - DRA                                0
Hedge de Fluxo de Caixa em Coligada - DRA                                    0
Resultado Abrangente Consolidado do Periodo - DRA                     -3778356
Atribuido a Socios da Empresa Controladora - DRA                      -3329484
Atribuido a Socios Nao Controladores - DRA                             -448872
                                                                        2014
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA      0
Hedge de Fluxo de Caixa na Controladora - DRA                           3131
Hedge de Fluxo de Caixa em Coligada - DRA                                  0
Resultado Abrangente Consolidado do Periodo - DRA                     110420
Atribuido a Socios da Empresa Controladora - DRA                       31493
Atribuido a Socios Nao Controladores - DRA                             78927
                                                                        2013
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA    105
Hedge de Fluxo de Caixa na Controladora - DRA                         118466
Hedge de Fluxo de Caixa em Coligada - DRA                                  0
Resultado Abrangente Consolidado do Periodo - DRA                     164639
Atribuido a Socios da Empresa Controladora - DRA                        6170
Atribuido a Socios Nao Controladores - DRA                            158469
                                                                         2012
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA   -1134
Hedge de Fluxo de Caixa na Controladora - DRA                           22138
Hedge de Fluxo de Caixa em Coligada - DRA                                   0
Resultado Abrangente Consolidado do Periodo - DRA                     -761058
Atribuido a Socios da Empresa Controladora - DRA                      -869332
Atribuido a Socios Nao Controladores - DRA                             108274
                                                                         2011
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA  161624
Hedge de Fluxo de Caixa na Controladora - DRA                         -143735
Hedge de Fluxo de Caixa em Coligada - DRA                                5778
Resultado Abrangente Consolidado do Periodo - DRA                      273626
Atribuido a Socios da Empresa Controladora - DRA                       102570
Atribuido a Socios Nao Controladores - DRA                             171056
                                                                         2010
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA  -48512
Hedge de Fluxo de Caixa na Controladora - DRA                               0
Hedge de Fluxo de Caixa em Coligada - DRA                                2566
Resultado Abrangente Consolidado do Periodo - DRA                     1350153
Atribuido a Socios da Empresa Controladora - DRA                      1338343
Atribuido a Socios Nao Controladores - DRA                              11810
                                                                         2009
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA -676612
Hedge de Fluxo de Caixa na Controladora - DRA                               0
Hedge de Fluxo de Caixa em Coligada - DRA                               -8344
Resultado Abrangente Consolidado do Periodo - DRA                      636888
Atribuido a Socios da Empresa Controladora - DRA                       634459
Atribuido a Socios Nao Controladores - DRA                               2429
                                                                                                                                  chk
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA Variacao Cambial de Coligada no Exterior e Outras Movimentacoes
Hedge de Fluxo de Caixa na Controladora - DRA                                                 Hedge de Fluxo de Caixa na Controladora
Hedge de Fluxo de Caixa em Coligada - DRA                                                         Hedge de Fluxo de Caixa em Coligada
Resultado Abrangente Consolidado do Periodo - DRA                                         Resultado Abrangente Consolidado do Periodo
Atribuido a Socios da Empresa Controladora - DRA                                           Atribuido a Socios da Empresa Controladora
Atribuido a Socios Nao Controladores - DRA                                                       Atribuido a Socios Nao Controladores
                                                                      Classe
Variacao Cambial de Coligada no Exterior e Outras Movimentacoes - DRA    DRA
Hedge de Fluxo de Caixa na Controladora - DRA                            DRA
Hedge de Fluxo de Caixa em Coligada - DRA                                DRA
Resultado Abrangente Consolidado do Periodo - DRA                        DRA
Atribuido a Socios da Empresa Controladora - DRA                         DRA
Atribuido a Socios Nao Controladores - DRA                               DRA
Data.DFC=data.bulk[header.DFC:(header.DVA-1),]
head(Data.DFC)
                                                                                                      Conta
DFC - DFC                                                                                               DFC
Caixa Liquido Atividades Operacionais - DFC-O                         Caixa Liquido Atividades Operacionais
Caixa Gerado nas Operacoes - DFC-O                                               Caixa Gerado nas Operacoes
Lucro Liquido do Exercicio - DFC-O                                               Lucro Liquido do Exercicio
Encargos e Variacoes Monetarias/Cambiais Liquidas - DFC-O Encargos e Variacoes Monetarias/Cambiais Liquidas
Despesas de Juros - DFC-O                                                                 Despesas de Juros
                                                             2018    2017
DFC - DFC                                                      NA      NA
Caixa Liquido Atividades Operacionais - DFC-O              509618  877029
Caixa Gerado nas Operacoes - DFC-O                        3624953 2559308
Lucro Liquido do Exercicio - DFC-O                         828695  315080
Encargos e Variacoes Monetarias/Cambiais Liquidas - DFC-O  346360  200702
Despesas de Juros - DFC-O                                  392031  636934
                                                             2016     2015
DFC - DFC                                                      NA       NA
Caixa Liquido Atividades Operacionais - DFC-O             -310312   103414
Caixa Gerado nas Operacoes - DFC-O                        1033361   721707
Lucro Liquido do Exercicio - DFC-O                        -576843 -3684977
Encargos e Variacoes Monetarias/Cambiais Liquidas - DFC-O   33433  1364544
Despesas de Juros - DFC-O                                  451913   253545
                                                             2014    2013
DFC - DFC                                                      NA      NA
Caixa Liquido Atividades Operacionais - DFC-O             1411597 1106293
Caixa Gerado nas Operacoes - DFC-O                        1912371 1552172
Lucro Liquido do Exercicio - DFC-O                         208479   16791
Encargos e Variacoes Monetarias/Cambiais Liquidas - DFC-O  565923  805437
Despesas de Juros - DFC-O                                  204557  242325
                                                             2012    2011
DFC - DFC                                                      NA      NA
Caixa Liquido Atividades Operacionais - DFC-O             3409075 -470631
Caixa Gerado nas Operacoes - DFC-O                        1002221 1560739
Lucro Liquido do Exercicio - DFC-O                        -531300  404133
Encargos e Variacoes Monetarias/Cambiais Liquidas - DFC-O  541337  490460
Despesas de Juros - DFC-O                                  284808  277737
                                                             2010     2009
DFC - DFC                                                      NA       NA
Caixa Liquido Atividades Operacionais - DFC-O             1347760  2336650
Caixa Gerado nas Operacoes - DFC-O                        2920756  1192686
Lucro Liquido do Exercicio - DFC-O                        1583650  1275455
Encargos e Variacoes Monetarias/Cambiais Liquidas - DFC-O -108757 -1110871
Despesas de Juros - DFC-O                                  437760   339711
                                                                                                        chk
DFC - DFC                                                                                                  
Caixa Liquido Atividades Operacionais - DFC-O                         Caixa Liquido Atividades Operacionais
Caixa Gerado nas Operacoes - DFC-O                                               Caixa Gerado nas Operacoes
Lucro Liquido do Exercicio - DFC-O                                               Lucro Liquido do Exercicio
Encargos e Variacoes Monetarias/Cambiais Liquidas - DFC-O Encargos e Variacoes Monetarias/Cambiais Liquidas
Despesas de Juros - DFC-O                                                                 Despesas de Juros
                                                          Classe
DFC - DFC                                                    DFC
Caixa Liquido Atividades Operacionais - DFC-O              DFC-O
Caixa Gerado nas Operacoes - DFC-O                         DFC-O
Lucro Liquido do Exercicio - DFC-O                         DFC-O
Encargos e Variacoes Monetarias/Cambiais Liquidas - DFC-O  DFC-O
Despesas de Juros - DFC-O                                  DFC-O
tail(Data.DFC)
                                                                                                                                                                          Conta
Recebimento Por Aumento de Capital Social - DFC-F                                                                                     Recebimento Por Aumento de Capital Social
Reducao de capital em controlada  - participacao dos   acionistas nao controladores - DFC-F Reducao de capital em controlada  - participacao dos   acionistas nao controladores
Variacao Cambial s/ Caixa e Equivalentes - DFC-F                                                                                       Variacao Cambial s/ Caixa e Equivalentes
Aumento (Reducao) de Caixa e Equivalentes - DFC-F                                                                                     Aumento (Reducao) de Caixa e Equivalentes
Saldo Inicial de Caixa e Equivalentes - DFC-F                                                                                             Saldo Inicial de Caixa e Equivalentes
Saldo Final de Caixa e Equivalentes - DFC-F                                                                                                 Saldo Final de Caixa e Equivalentes
                                                                                               2018
Recebimento Por Aumento de Capital Social - DFC-F                                                 0
Reducao de capital em controlada  - participacao dos   acionistas nao controladores - DFC-F       0
Variacao Cambial s/ Caixa e Equivalentes - DFC-F                                               -708
Aumento (Reducao) de Caixa e Equivalentes - DFC-F                                           -663783
Saldo Inicial de Caixa e Equivalentes - DFC-F                                               1770573
Saldo Final de Caixa e Equivalentes - DFC-F                                                 1106790
                                                                                               2017
Recebimento Por Aumento de Capital Social - DFC-F                                                 0
Reducao de capital em controlada  - participacao dos   acionistas nao controladores - DFC-F -300000
Variacao Cambial s/ Caixa e Equivalentes - DFC-F                                               7431
Aumento (Reducao) de Caixa e Equivalentes - DFC-F                                           1050703
Saldo Inicial de Caixa e Equivalentes - DFC-F                                                719870
Saldo Final de Caixa e Equivalentes - DFC-F                                                 1770573
                                                                                               2016
Recebimento Por Aumento de Capital Social - DFC-F                                           1050295
Reducao de capital em controlada  - participacao dos   acionistas nao controladores - DFC-F       0
Variacao Cambial s/ Caixa e Equivalentes - DFC-F                                             -14203
Aumento (Reducao) de Caixa e Equivalentes - DFC-F                                            -80402
Saldo Inicial de Caixa e Equivalentes - DFC-F                                                800272
Saldo Final de Caixa e Equivalentes - DFC-F                                                  719870
                                                                                                2015
Recebimento Por Aumento de Capital Social - DFC-F                                                  0
Reducao de capital em controlada  - participacao dos   acionistas nao controladores - DFC-F        0
Variacao Cambial s/ Caixa e Equivalentes - DFC-F                                               43162
Aumento (Reducao) de Caixa e Equivalentes - DFC-F                                           -1309540
Saldo Inicial de Caixa e Equivalentes - DFC-F                                                2109812
Saldo Final de Caixa e Equivalentes - DFC-F                                                   800272
                                                                                               2014
Recebimento Por Aumento de Capital Social - DFC-F                                                 0
Reducao de capital em controlada  - participacao dos   acionistas nao controladores - DFC-F       0
Variacao Cambial s/ Caixa e Equivalentes - DFC-F                                               8761
Aumento (Reducao) de Caixa e Equivalentes - DFC-F                                           -523375
Saldo Inicial de Caixa e Equivalentes - DFC-F                                               2633187
Saldo Final de Caixa e Equivalentes - DFC-F                                                 2109812
                                                                                               2013
Recebimento Por Aumento de Capital Social - DFC-F                                                 0
Reducao de capital em controlada  - participacao dos   acionistas nao controladores - DFC-F       0
Variacao Cambial s/ Caixa e Equivalentes - DFC-F                                             -14241
Aumento (Reducao) de Caixa e Equivalentes - DFC-F                                           -490131
Saldo Inicial de Caixa e Equivalentes - DFC-F                                               3123318
Saldo Final de Caixa e Equivalentes - DFC-F                                                 2633187
                                                                                               2012
Recebimento Por Aumento de Capital Social - DFC-F                                                 0
Reducao de capital em controlada  - participacao dos   acionistas nao controladores - DFC-F       0
Variacao Cambial s/ Caixa e Equivalentes - DFC-F                                              10610
Aumento (Reducao) de Caixa e Equivalentes - DFC-F                                            279452
Saldo Inicial de Caixa e Equivalentes - DFC-F                                               2901312
Saldo Final de Caixa e Equivalentes - DFC-F                                                 3180764
                                                                                                2011
Recebimento Por Aumento de Capital Social - DFC-F                                                  0
Reducao de capital em controlada  - participacao dos   acionistas nao controladores - DFC-F        0
Variacao Cambial s/ Caixa e Equivalentes - DFC-F                                               -7138
Aumento (Reducao) de Caixa e Equivalentes - DFC-F                                           -1244467
Saldo Inicial de Caixa e Equivalentes - DFC-F                                                4145779
Saldo Final de Caixa e Equivalentes - DFC-F                                                  2901312
                                                                                               2010
Recebimento Por Aumento de Capital Social - DFC-F                                                 0
Reducao de capital em controlada  - participacao dos   acionistas nao controladores - DFC-F       0
Variacao Cambial s/ Caixa e Equivalentes - DFC-F                                               -642
Aumento (Reducao) de Caixa e Equivalentes - DFC-F                                           2047583
Saldo Inicial de Caixa e Equivalentes - DFC-F                                               2098196
Saldo Final de Caixa e Equivalentes - DFC-F                                                 4145779
                                                                                               2009
Recebimento Por Aumento de Capital Social - DFC-F                                                 0
Reducao de capital em controlada  - participacao dos   acionistas nao controladores - DFC-F       0
Variacao Cambial s/ Caixa e Equivalentes - DFC-F                                             -12167
Aumento (Reducao) de Caixa e Equivalentes - DFC-F                                           -826045
Saldo Inicial de Caixa e Equivalentes - DFC-F                                               2924241
Saldo Final de Caixa e Equivalentes - DFC-F                                                 2098196
                                                                                                                                  chk
Recebimento Por Aumento de Capital Social - DFC-F                                                                                    
Reducao de capital em controlada  - participacao dos   acionistas nao controladores - DFC-F                                          
Variacao Cambial s/ Caixa e Equivalentes - DFC-F                                             Variacao Cambial s/ Caixa e Equivalentes
Aumento (Reducao) de Caixa e Equivalentes - DFC-F                                           Aumento (Reducao) de Caixa e Equivalentes
Saldo Inicial de Caixa e Equivalentes - DFC-F                                                   Saldo Inicial de Caixa e Equivalentes
Saldo Final de Caixa e Equivalentes - DFC-F                                                       Saldo Final de Caixa e Equivalentes
                                                                                            Classe
Recebimento Por Aumento de Capital Social - DFC-F                                            DFC-F
Reducao de capital em controlada  - participacao dos   acionistas nao controladores - DFC-F  DFC-F
Variacao Cambial s/ Caixa e Equivalentes - DFC-F                                             DFC-F
Aumento (Reducao) de Caixa e Equivalentes - DFC-F                                            DFC-F
Saldo Inicial de Caixa e Equivalentes - DFC-F                                                DFC-F
Saldo Final de Caixa e Equivalentes - DFC-F                                                  DFC-F
Data.DVA=data.bulk[header.DVA:(header.MERC-1),]
head(Data.DVA)
                                                                                                Conta
DVA - DVA                                                                                         DVA
Receitas - DVA                                                                               Receitas
Vendas de Mercadorias, Produtos e Servicos - DVA           Vendas de Mercadorias, Produtos e Servicos
Outras Receitas - DVA                                                                 Outras Receitas
Receitas refs. a Construcao de Ativos Proprios - DVA   Receitas refs. a Construcao de Ativos Proprios
Provisao/Reversao de Crads. Liquidacao Duvidosa - DVA Provisao/Reversao de Crads. Liquidacao Duvidosa
                                                          2018     2017
DVA - DVA                                                   NA       NA
Receitas - DVA                                        17829112 14361690
Vendas de Mercadorias, Produtos e Servicos - DVA      17499783 14000424
Outras Receitas - DVA                                   371247   385579
Receitas refs. a Construcao de Ativos Proprios - DVA         0        0
Provisao/Reversao de Crads. Liquidacao Duvidosa - DVA   -41918   -24313
                                                          2016     2015
DVA - DVA                                                   NA       NA
Receitas - DVA                                        11196769 13801739
Vendas de Mercadorias, Produtos e Servicos - DVA      11101311 13571271
Outras Receitas - DVA                                   151081   248826
Receitas refs. a Construcao de Ativos Proprios - DVA         0        0
Provisao/Reversao de Crads. Liquidacao Duvidosa - DVA   -55623   -18358
                                                          2014     2013
DVA - DVA                                                   NA       NA
Receitas - DVA                                        16846406 17997454
Vendas de Mercadorias, Produtos e Servicos - DVA      16245689 17863766
Outras Receitas - DVA                                   610142   150737
Receitas refs. a Construcao de Ativos Proprios - DVA         0        0
Provisao/Reversao de Crads. Liquidacao Duvidosa - DVA    -9425   -17049
                                                          2012     2011
DVA - DVA                                                   NA       NA
Receitas - DVA                                        16759074 15790912
Vendas de Mercadorias, Produtos e Servicos - DVA      16696407 15832381
Outras Receitas - DVA                                    64721    30691
Receitas refs. a Construcao de Ativos Proprios - DVA         0        0
Provisao/Reversao de Crads. Liquidacao Duvidosa - DVA    -2054   -72160
                                                          2010     2009
DVA - DVA                                                   NA       NA
Receitas - DVA                                        17046605 14607360
Vendas de Mercadorias, Produtos e Servicos - DVA      16992062 14605600
Outras Receitas - DVA                                    44714     8733
Receitas refs. a Construcao de Ativos Proprios - DVA         0        0
Provisao/Reversao de Crads. Liquidacao Duvidosa - DVA     9829    -6973
                                                                                                  chk
DVA - DVA                                                                                            
Receitas - DVA                                                                               Receitas
Vendas de Mercadorias, Produtos e Servicos - DVA           Vendas de Mercadorias, Produtos e Servicos
Outras Receitas - DVA                                                                 Outras Receitas
Receitas refs. a Construcao de Ativos Proprios - DVA   Receitas refs. a Construcao de Ativos Proprios
Provisao/Reversao de Crads. Liquidacao Duvidosa - DVA Provisao/Reversao de Crads. Liquidacao Duvidosa
                                                      Classe
DVA - DVA                                                DVA
Receitas - DVA                                           DVA
Vendas de Mercadorias, Produtos e Servicos - DVA         DVA
Outras Receitas - DVA                                    DVA
Receitas refs. a Construcao de Ativos Proprios - DVA     DVA
Provisao/Reversao de Crads. Liquidacao Duvidosa - DVA    DVA
tail(Data.DVA)
                                                                                      Conta
Remuneracao de Capitais Proprios - DVA                     Remuneracao de Capitais Proprios
Juros sobre o Capital Proprio - DVA                           Juros sobre o Capital Proprio
Dividendos - DVA                                                                 Dividendos
Lucros Retidos / Prejuizo do Periodo - DVA             Lucros Retidos / Prejuizo do Periodo
Part. Nao Controladores nos Lucros Retidos - DVA Part. Nao Controladores nos Lucros Retidos
Outros - DVA                                                                         Outros
                                                   2018   2017    2016
Remuneracao de Capitais Proprios - DVA           828695 315080 -576843
Juros sobre o Capital Proprio - DVA                   0      0       0
Dividendos - DVA                                      0      0       0
Lucros Retidos / Prejuizo do Periodo - DVA       726658 233015 -669952
Part. Nao Controladores nos Lucros Retidos - DVA 102037  82065   93109
Outros - DVA                                          0      0       0
                                                     2015   2014    2013
Remuneracao de Capitais Proprios - DVA           -3684977 208479   16791
Juros sobre o Capital Proprio - DVA                     0      0       0
Dividendos - DVA                                        0      0       0
Lucros Retidos / Prejuizo do Periodo - DVA       -3236105 129552 -141678
Part. Nao Controladores nos Lucros Retidos - DVA  -448872  78927  158469
Outros - DVA                                            0      0       0
                                                    2012   2011    2010
Remuneracao de Capitais Proprios - DVA           -531300 610629 1583650
Juros sobre o Capital Proprio - DVA                    0  81577  550144
Dividendos - DVA                                       0      0       0
Lucros Retidos / Prejuizo do Periodo - DVA       -639574 357996 1021696
Part. Nao Controladores nos Lucros Retidos - DVA  108274 171056   11810
Outros - DVA                                           0      0       0
                                                    2009
Remuneracao de Capitais Proprios - DVA           1275455
Juros sobre o Capital Proprio - DVA               397885
Dividendos - DVA                                   73119
Lucros Retidos / Prejuizo do Periodo - DVA        806880
Part. Nao Controladores nos Lucros Retidos - DVA   -2429
Outros - DVA                                           0
                                                                                        chk
Remuneracao de Capitais Proprios - DVA                     Remuneracao de Capitais Proprios
Juros sobre o Capital Proprio - DVA                           Juros sobre o Capital Proprio
Dividendos - DVA                                                                 Dividendos
Lucros Retidos / Prejuizo do Periodo - DVA             Lucros Retidos / Prejuizo do Periodo
Part. Nao Controladores nos Lucros Retidos - DVA Part. Nao Controladores nos Lucros Retidos
Outros - DVA                                                                         Outros
                                                 Classe
Remuneracao de Capitais Proprios - DVA              DVA
Juros sobre o Capital Proprio - DVA                 DVA
Dividendos - DVA                                    DVA
Lucros Retidos / Prejuizo do Periodo - DVA          DVA
Part. Nao Controladores nos Lucros Retidos - DVA    DVA
Outros - DVA                                        DVA
Data.MERC=data.bulk[header.MERC:(header.FIM-1),]
head(Data.MERC)
                                     Conta             2018
Mercado - MERC                     Mercado               NA
IGP-DI - MERC                       IGP-DI          0.07102
Fator de Correcao - MERC Fator de Correcao          1.00000
Cotacao USIM5 - MERC         Cotacao USIM5          9.22000
Numero de acoes - MERC     Numero de acoes 1253079108.00000
                                    2017             2016            2015
Mercado - MERC                        NA               NA              NA
IGP-DI - MERC                    -0.0042          0.07150          0.1068
Fator de Correcao - MERC          1.0710          0.99162          1.1481
Cotacao USIM5 - MERC              9.1000          4.10000          1.5500
Numero de acoes - MERC   1253079108.0000 1253079108.00000 1013786190.0000
                                    2014            2013            2012
Mercado - MERC                        NA              NA              NA
IGP-DI - MERC                     0.0378          0.0553          0.0811
Fator de Correcao - MERC          1.2199          1.1551          1.3372
Cotacao USIM5 - MERC              5.0500         14.2100         12.8000
Numero de acoes - MERC   1013786190.0000 1013786190.0000 1013786190.0000
                                    2011            2010           2009
Mercado - MERC                        NA              NA             NA
IGP-DI - MERC                     0.0501          0.1131        -0.0144
Fator de Correcao - MERC          1.4585          1.4566         1.7811
Cotacao USIM5 - MERC             10.1500         19.1600        51.0000
Numero de acoes - MERC   1013786190.0000 1013786190.0000 506893095.0000
                         chk Classe
Mercado - MERC                 MERC
IGP-DI - MERC                  MERC
Fator de Correcao - MERC       MERC
Cotacao USIM5 - MERC           MERC
Numero de acoes - MERC         MERC
tail(Data.MERC)
                                     Conta             2018
Mercado - MERC                     Mercado               NA
IGP-DI - MERC                       IGP-DI          0.07102
Fator de Correcao - MERC Fator de Correcao          1.00000
Cotacao USIM5 - MERC         Cotacao USIM5          9.22000
Numero de acoes - MERC     Numero de acoes 1253079108.00000
                                    2017             2016            2015
Mercado - MERC                        NA               NA              NA
IGP-DI - MERC                    -0.0042          0.07150          0.1068
Fator de Correcao - MERC          1.0710          0.99162          1.1481
Cotacao USIM5 - MERC              9.1000          4.10000          1.5500
Numero de acoes - MERC   1253079108.0000 1253079108.00000 1013786190.0000
                                    2014            2013            2012
Mercado - MERC                        NA              NA              NA
IGP-DI - MERC                     0.0378          0.0553          0.0811
Fator de Correcao - MERC          1.2199          1.1551          1.3372
Cotacao USIM5 - MERC              5.0500         14.2100         12.8000
Numero de acoes - MERC   1013786190.0000 1013786190.0000 1013786190.0000
                                    2011            2010           2009
Mercado - MERC                        NA              NA             NA
IGP-DI - MERC                     0.0501          0.1131        -0.0144
Fator de Correcao - MERC          1.4585          1.4566         1.7811
Cotacao USIM5 - MERC             10.1500         19.1600        51.0000
Numero de acoes - MERC   1013786190.0000 1013786190.0000 506893095.0000
                         chk Classe
Mercado - MERC                 MERC
IGP-DI - MERC                  MERC
Fator de Correcao - MERC       MERC
Cotacao USIM5 - MERC           MERC
Numero de acoes - MERC         MERC

Análise Fundamentalista (IV)

Indentificar os índices dos subgrupos e separa os subgrupos de contas.

Explore as novas Tabelas…

# Identificar Index divisorias dentro do Ativo: Ativo Circulante, Ativo Nao Circulante, RLP, Perm

header.AC=as.numeric(which(rownames(Data.Ativo) == "Ativo Circulante - AC"))


header.ANC=as.numeric(which(rownames(Data.Ativo) == "Ativo Nao Circulante - ANC"))


header.INV=as.numeric(which(rownames(Data.Ativo) == "Investimentos - ANC"))


header.PERM=as.numeric(which(rownames(Data.Ativo) == "Imobilizado - ANC"))


# Separar os subconjuntos de contas Ativo: Ativo Circulante, Ativo Nao Circulante, RLP, Perm
end.Ativo=nrow(Data.Ativo)
ncol(Data.Ativo)
[1] 13
Data.AC=Data.Ativo[header.AC:(header.ANC-1),]
head(Data.AC)
                                                                                             Conta
Ativo Circulante - AC                                                             Ativo Circulante
Caixa e Equivalentes de Caixa - AC                                   Caixa e Equivalentes de Caixa
Aplicacoes Financeiras - AC                                                 Aplicacoes Financeiras
Aplicacoes Financeiras Avaliadas a Valor Justo - AC Aplicacoes Financeiras Avaliadas a Valor Justo
Titulos para Negociacao - AC                                               Titulos para Negociacao
Titulos Disponiveis para Venda - AC                                 Titulos Disponiveis para Venda
                                                       2018    2017
Ativo Circulante - AC                               8324317 7254755
Caixa e Equivalentes de Caixa - AC                  1106790 1770573
Aplicacoes Financeiras - AC                          586559  543715
Aplicacoes Financeiras Avaliadas a Valor Justo - AC       0       0
Titulos para Negociacao - AC                              0       0
Titulos Disponiveis para Venda - AC                       0       0
                                                       2016    2015
Ativo Circulante - AC                               6420478 6894842
Caixa e Equivalentes de Caixa - AC                   719870  800272
Aplicacoes Financeiras - AC                         1537584 1224185
Aplicacoes Financeiras Avaliadas a Valor Justo - AC       0       0
Titulos para Negociacao - AC                              0       0
Titulos Disponiveis para Venda - AC                       0       0
                                                       2014    2013
Ativo Circulante - AC                               8245211 9460294
Caixa e Equivalentes de Caixa - AC                  2109812 2633187
Aplicacoes Financeiras - AC                          742091  835629
Aplicacoes Financeiras Avaliadas a Valor Justo - AC       0       0
Titulos para Negociacao - AC                              0       0
Titulos Disponiveis para Venda - AC                       0       0
                                                        2012     2011
Ativo Circulante - AC                               10780645 12616945
Caixa e Equivalentes de Caixa - AC                   3180764  2901312
Aplicacoes Financeiras - AC                          1537558  2289383
Aplicacoes Financeiras Avaliadas a Valor Justo - AC        0        0
Titulos para Negociacao - AC                               0        0
Titulos Disponiveis para Venda - AC                        0        0
                                                        2010    2009
Ativo Circulante - AC                               12270576 9239835
Caixa e Equivalentes de Caixa - AC                   4145779 3083047
Aplicacoes Financeiras - AC                           397787 2098196
Aplicacoes Financeiras Avaliadas a Valor Justo - AC        0       0
Titulos para Negociacao - AC                               0       0
Titulos Disponiveis para Venda - AC                        0       0
                                                                                               chk
Ativo Circulante - AC                                                             Ativo Circulante
Caixa e Equivalentes de Caixa - AC                                   Caixa e Equivalentes de Caixa
Aplicacoes Financeiras - AC                                                 Aplicacoes Financeiras
Aplicacoes Financeiras Avaliadas a Valor Justo - AC Aplicacoes Financeiras Avaliadas a Valor Justo
Titulos para Negociacao - AC                                               Titulos para Negociacao
Titulos Disponiveis para Venda - AC                                 Titulos Disponiveis para Venda
                                                    Classe
Ativo Circulante - AC                                   AC
Caixa e Equivalentes de Caixa - AC                      AC
Aplicacoes Financeiras - AC                             AC
Aplicacoes Financeiras Avaliadas a Valor Justo - AC     AC
Titulos para Negociacao - AC                            AC
Titulos Disponiveis para Venda - AC                     AC
tail(Data.AC)
                                                                                                     Conta
Impostos a Recuperar - AC                                                             Impostos a Recuperar
Imposto de Renda e Contribuicao Social Antecipados - AC Imposto de Renda e Contribuicao Social Antecipados
Dividendos a Receber - AC                                                             Dividendos a Receber
Adiantamentos a Fornecedores - AC                                             Adiantamentos a Fornecedores
Outras Contas a Receber - AC                                                       Outras Contas a Receber
Instrumentos Financeiros - AC                                                     Instrumentos Financeiros
                                                          2018   2017
Impostos a Recuperar - AC                               617731 176851
Imposto de Renda e Contribuicao Social Antecipados - AC 130197 185614
Dividendos a Receber - AC                                13562 139078
Adiantamentos a Fornecedores - AC                         4050   4332
Outras Contas a Receber - AC                               347 115590
Instrumentos Financeiros - AC                            90155     12
                                                          2016   2015
Impostos a Recuperar - AC                               125191 210946
Imposto de Renda e Contribuicao Social Antecipados - AC 113409 166252
Dividendos a Receber - AC                                 2463   2357
Adiantamentos a Fornecedores - AC                         7226  12477
Outras Contas a Receber - AC                             86548 148955
Instrumentos Financeiros - AC                            44669 152560
                                                          2014   2013
Impostos a Recuperar - AC                               358418 323520
Imposto de Renda e Contribuicao Social Antecipados - AC      0      0
Dividendos a Receber - AC                                12641  12413
Adiantamentos a Fornecedores - AC                        17848  13541
Outras Contas a Receber - AC                            175564 106396
Instrumentos Financeiros - AC                            65392  45637
                                                          2012   2011
Impostos a Recuperar - AC                               485532 799635
Imposto de Renda e Contribuicao Social Antecipados - AC      0      0
Dividendos a Receber - AC                                12134  13587
Adiantamentos a Fornecedores - AC                        33431  71758
Outras Contas a Receber - AC                            132866 198495
Instrumentos Financeiros - AC                            50093  29464
                                                          2010   2009
Impostos a Recuperar - AC                               823271 434756
Imposto de Renda e Contribuicao Social Antecipados - AC      0     NA
Dividendos a Receber - AC                                56324      0
Adiantamentos a Fornecedores - AC                        70065  77221
Outras Contas a Receber - AC                            175942 172939
Instrumentos Financeiros - AC                            24294  36279
                                                                                 chk
Impostos a Recuperar - AC                                       Impostos a Recuperar
Imposto de Renda e Contribuicao Social Antecipados - AC                             
Dividendos a Receber - AC                                       Dividendos a Receber
Adiantamentos a Fornecedores - AC                       Adiantamentos a Fornecedores
Outras Contas a Receber - AC                                 Outras Contas a Receber
Instrumentos Financeiros - AC                               Instrumentos Financeiros
                                                        Classe
Impostos a Recuperar - AC                                   AC
Imposto de Renda e Contribuicao Social Antecipados - AC     AC
Dividendos a Receber - AC                                   AC
Adiantamentos a Fornecedores - AC                           AC
Outras Contas a Receber - AC                                AC
Instrumentos Financeiros - AC                               AC
Data.ANC=Data.Ativo[header.ANC:(header.Passivo-1),]
head(Data.ANC)
                                                                                                          Conta
Ativo Nao Circulante - ANC                                                                 Ativo Nao Circulante
Ativo Realizavel a Longo Prazo - ANC                                             Ativo Realizavel a Longo Prazo
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC             Aplicacoes Financeiras Avaliadas a Valor Justo
Titulos para Negociacao - ANC                                                           Titulos para Negociacao
Titulos Disponiveis para Venda - ANC                                             Titulos Disponiveis para Venda
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC Aplicacoes Financeiras Avaliadas ao Custo Amortizado
                                                               2018
Ativo Nao Circulante - ANC                                 18199534
Ativo Realizavel a Longo Prazo - ANC                        4700822
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC              0
Titulos para Negociacao - ANC                                     0
Titulos Disponiveis para Venda - ANC                              0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC        0
                                                               2017
Ativo Nao Circulante - ANC                                 18729722
Ativo Realizavel a Longo Prazo - ANC                        4115862
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC              0
Titulos para Negociacao - ANC                                     0
Titulos Disponiveis para Venda - ANC                              0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC        0
                                                               2016
Ativo Nao Circulante - ANC                                 19834267
Ativo Realizavel a Longo Prazo - ANC                        4265283
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC              0
Titulos para Negociacao - ANC                                     0
Titulos Disponiveis para Venda - ANC                              0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC        0
                                                               2015
Ativo Nao Circulante - ANC                                 20863490
Ativo Realizavel a Longo Prazo - ANC                        4697628
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC              0
Titulos para Negociacao - ANC                                     0
Titulos Disponiveis para Venda - ANC                              0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC        0
                                                               2014
Ativo Nao Circulante - ANC                                 22238851
Ativo Realizavel a Longo Prazo - ANC                        3179812
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC              0
Titulos para Negociacao - ANC                                     0
Titulos Disponiveis para Venda - ANC                              0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC        0
                                                               2013
Ativo Nao Circulante - ANC                                 21897700
Ativo Realizavel a Longo Prazo - ANC                        2830342
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC              0
Titulos para Negociacao - ANC                                     0
Titulos Disponiveis para Venda - ANC                              0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC        0
                                                               2012
Ativo Nao Circulante - ANC                                 21993574
Ativo Realizavel a Longo Prazo - ANC                        2444744
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC              0
Titulos para Negociacao - ANC                                     0
Titulos Disponiveis para Venda - ANC                              0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC        0
                                                               2011
Ativo Nao Circulante - ANC                                 20743480
Ativo Realizavel a Longo Prazo - ANC                        1939992
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC              0
Titulos para Negociacao - ANC                                     0
Titulos Disponiveis para Venda - ANC                              0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC        0
                                                               2010
Ativo Nao Circulante - ANC                                 19514175
Ativo Realizavel a Longo Prazo - ANC                        1436133
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC              0
Titulos para Negociacao - ANC                                     0
Titulos Disponiveis para Venda - ANC                              0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC        0
                                                               2009
Ativo Nao Circulante - ANC                                 16701095
Ativo Realizavel a Longo Prazo - ANC                        1206748
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC              0
Titulos para Negociacao - ANC                                     0
Titulos Disponiveis para Venda - ANC                              0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC        0
                                                                                                            chk
Ativo Nao Circulante - ANC                                                                 Ativo Nao Circulante
Ativo Realizavel a Longo Prazo - ANC                                             Ativo Realizavel a Longo Prazo
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC             Aplicacoes Financeiras Avaliadas a Valor Justo
Titulos para Negociacao - ANC                                                           Titulos para Negociacao
Titulos Disponiveis para Venda - ANC                                             Titulos Disponiveis para Venda
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC Aplicacoes Financeiras Avaliadas ao Custo Amortizado
                                                           Classe
Ativo Nao Circulante - ANC                                    ANC
Ativo Realizavel a Longo Prazo - ANC                          ANC
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC          ANC
Titulos para Negociacao - ANC                                 ANC
Titulos Disponiveis para Venda - ANC                          ANC
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC    ANC
tail(Data.ANC)
                                                  Conta   2018   2017
Imobilizado Arrendado - ANC       Imobilizado Arrendado      0      0
Imobilizado em Andamento - ANC Imobilizado em Andamento 846012 844225
Intangivel - ANC                             Intangivel 695596 677190
Intangiveis - ANC                           Intangiveis      0      0
Contrato de Concessao - ANC       Contrato de Concessao      0      0
Goodwill - ANC                                 Goodwill      0      0
                                 2016    2015    2014    2013    2012
Imobilizado Arrendado - ANC         0       0       0       0       0
Imobilizado em Andamento - ANC 892605 1425978 2011008 1916903 2209796
Intangivel - ANC               693918  337922 2377679 2400577 2442648
Intangiveis - ANC                   0       0       0       0       0
Contrato de Concessao - ANC         0       0       0       0       0
Goodwill - ANC                      0       0       0       0       0
                                  2011    2010    2009
Imobilizado Arrendado - ANC          0       0       0
Imobilizado em Andamento - ANC 5431352 4530621 2884268
Intangivel - ANC               2453952 1741850 1737495
Intangiveis - ANC                    0       0       0
Contrato de Concessao - ANC          0       0       0
Goodwill - ANC                       0       0       0
                                                    chk Classe
Imobilizado Arrendado - ANC       Imobilizado Arrendado    ANC
Imobilizado em Andamento - ANC Imobilizado em Andamento    ANC
Intangivel - ANC                             Intangivel    ANC
Intangiveis - ANC                           Intangiveis    ANC
Contrato de Concessao - ANC       Contrato de Concessao    ANC
Goodwill - ANC                                 Goodwill    ANC
Data.RLP=Data.Ativo[header.ANC:(header.INV-1),]
head(Data.RLP)
                                                                                                          Conta
Ativo Nao Circulante - ANC                                                                 Ativo Nao Circulante
Ativo Realizavel a Longo Prazo - ANC                                             Ativo Realizavel a Longo Prazo
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC             Aplicacoes Financeiras Avaliadas a Valor Justo
Titulos para Negociacao - ANC                                                           Titulos para Negociacao
Titulos Disponiveis para Venda - ANC                                             Titulos Disponiveis para Venda
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC Aplicacoes Financeiras Avaliadas ao Custo Amortizado
                                                               2018
Ativo Nao Circulante - ANC                                 18199534
Ativo Realizavel a Longo Prazo - ANC                        4700822
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC              0
Titulos para Negociacao - ANC                                     0
Titulos Disponiveis para Venda - ANC                              0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC        0
                                                               2017
Ativo Nao Circulante - ANC                                 18729722
Ativo Realizavel a Longo Prazo - ANC                        4115862
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC              0
Titulos para Negociacao - ANC                                     0
Titulos Disponiveis para Venda - ANC                              0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC        0
                                                               2016
Ativo Nao Circulante - ANC                                 19834267
Ativo Realizavel a Longo Prazo - ANC                        4265283
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC              0
Titulos para Negociacao - ANC                                     0
Titulos Disponiveis para Venda - ANC                              0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC        0
                                                               2015
Ativo Nao Circulante - ANC                                 20863490
Ativo Realizavel a Longo Prazo - ANC                        4697628
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC              0
Titulos para Negociacao - ANC                                     0
Titulos Disponiveis para Venda - ANC                              0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC        0
                                                               2014
Ativo Nao Circulante - ANC                                 22238851
Ativo Realizavel a Longo Prazo - ANC                        3179812
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC              0
Titulos para Negociacao - ANC                                     0
Titulos Disponiveis para Venda - ANC                              0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC        0
                                                               2013
Ativo Nao Circulante - ANC                                 21897700
Ativo Realizavel a Longo Prazo - ANC                        2830342
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC              0
Titulos para Negociacao - ANC                                     0
Titulos Disponiveis para Venda - ANC                              0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC        0
                                                               2012
Ativo Nao Circulante - ANC                                 21993574
Ativo Realizavel a Longo Prazo - ANC                        2444744
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC              0
Titulos para Negociacao - ANC                                     0
Titulos Disponiveis para Venda - ANC                              0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC        0
                                                               2011
Ativo Nao Circulante - ANC                                 20743480
Ativo Realizavel a Longo Prazo - ANC                        1939992
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC              0
Titulos para Negociacao - ANC                                     0
Titulos Disponiveis para Venda - ANC                              0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC        0
                                                               2010
Ativo Nao Circulante - ANC                                 19514175
Ativo Realizavel a Longo Prazo - ANC                        1436133
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC              0
Titulos para Negociacao - ANC                                     0
Titulos Disponiveis para Venda - ANC                              0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC        0
                                                               2009
Ativo Nao Circulante - ANC                                 16701095
Ativo Realizavel a Longo Prazo - ANC                        1206748
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC              0
Titulos para Negociacao - ANC                                     0
Titulos Disponiveis para Venda - ANC                              0
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC        0
                                                                                                            chk
Ativo Nao Circulante - ANC                                                                 Ativo Nao Circulante
Ativo Realizavel a Longo Prazo - ANC                                             Ativo Realizavel a Longo Prazo
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC             Aplicacoes Financeiras Avaliadas a Valor Justo
Titulos para Negociacao - ANC                                                           Titulos para Negociacao
Titulos Disponiveis para Venda - ANC                                             Titulos Disponiveis para Venda
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC Aplicacoes Financeiras Avaliadas ao Custo Amortizado
                                                           Classe
Ativo Nao Circulante - ANC                                    ANC
Ativo Realizavel a Longo Prazo - ANC                          ANC
Aplicacoes Financeiras Avaliadas a Valor Justo - ANC          ANC
Titulos para Negociacao - ANC                                 ANC
Titulos Disponiveis para Venda - ANC                          ANC
Aplicacoes Financeiras Avaliadas ao Custo Amortizado - ANC    ANC
tail(Data.RLP)
                                                                                                      Conta
Depositos Judiciais - ANC                                                               Depositos Judiciais
Instrumentos Financeiros - ANC                                                     Instrumentos Financeiros
Impostos a Recuperar - ANC                                                             Impostos a Recuperar
Imposto de Renda e Contribuicao Social Antecipados - ANC Imposto de Renda e Contribuicao Social Antecipados
Valores a receber Eletrobras -                                                 Valores a receber Eletrobras
Outros - ANC                                                                                         Outros
                                                           2018   2017
Depositos Judiciais - ANC                                523557 675600
Instrumentos Financeiros - ANC                             3553   1184
Impostos a Recuperar - ANC                               454284  54881
Imposto de Renda e Contribuicao Social Antecipados - ANC      0      0
Valores a receber Eletrobras -                           676023     NA
Outros - ANC                                             184750  48617
                                                           2016   2015
Depositos Judiciais - ANC                                660229 597392
Instrumentos Financeiros - ANC                           100670 559654
Impostos a Recuperar - ANC                                96070  81263
Imposto de Renda e Contribuicao Social Antecipados - ANC  68172      0
Valores a receber Eletrobras -                               NA     NA
Outros - ANC                                              29552  29561
                                                           2014   2013
Depositos Judiciais - ANC                                566408 565404
Instrumentos Financeiros - ANC                           252027  40608
Impostos a Recuperar - ANC                                95835 113474
Imposto de Renda e Contribuicao Social Antecipados - ANC     NA      0
Valores a receber Eletrobras -                               NA     NA
Outros - ANC                                              36933  76176
                                                           2012   2011
Depositos Judiciais - ANC                                430717 486327
Instrumentos Financeiros - ANC                           286508 435972
Impostos a Recuperar - ANC                               132451 154737
Imposto de Renda e Contribuicao Social Antecipados - ANC      0      0
Valores a receber Eletrobras -                               NA     NA
Outros - ANC                                              68558  60100
                                                           2010   2009
Depositos Judiciais - ANC                                443879 315038
Instrumentos Financeiros - ANC                           356899 184423
Impostos a Recuperar - ANC                               174970 271373
Imposto de Renda e Contribuicao Social Antecipados - ANC      0      0
Valores a receber Eletrobras -                               NA     NA
Outros - ANC                                              56202  18783
                                                                              chk
Depositos Judiciais - ANC                                     Depositos Judiciais
Instrumentos Financeiros - ANC                           Instrumentos Financeiros
Impostos a Recuperar - ANC                                   Impostos a Recuperar
Imposto de Renda e Contribuicao Social Antecipados - ANC                         
Valores a receber Eletrobras -                                                   
Outros - ANC                                                               Outros
                                                         Classe
Depositos Judiciais - ANC                                   ANC
Instrumentos Financeiros - ANC                              ANC
Impostos a Recuperar - ANC                                  ANC
Imposto de Renda e Contribuicao Social Antecipados - ANC    ANC
Valores a receber Eletrobras -                                 
Outros - ANC                                                ANC
Data.PERM=Data.Ativo[header.INV:(end.Ativo),]
head(Data.PERM)
                                                                  Conta
Investimentos - ANC                                       Investimentos
Participacoes Societarias - ANC               Participacoes Societarias
Participacoes em Coligadas - ANC             Participacoes em Coligadas
Outras Participacoes Societarias - ANC Outras Participacoes Societarias
Propriedades para Investimento - ANC     Propriedades para Investimento
Imobilizado - ANC                                           Imobilizado
                                           2018     2017     2016     2015
Investimentos - ANC                     1088094  1054052  1126176  1084311
Participacoes Societarias - ANC         1088094  1054052  1126176  1084311
Participacoes em Coligadas - ANC         473765   447315   525309   504148
Outras Participacoes Societarias - ANC   614329   606737   600867   580163
Propriedades para Investimento - ANC          0        0        0        0
Imobilizado - ANC                      11715022 12882618 13748890 14743629
                                           2014     2013     2012     2011
Investimentos - ANC                     1145787  1159948   453062   428382
Participacoes Societarias - ANC         1145787  1159948   453062   428382
Participacoes em Coligadas - ANC         495078   473784   450146   425198
Outras Participacoes Societarias - ANC   650709   686164     2916     3184
Propriedades para Investimento - ANC          0        0        0        0
Imobilizado - ANC                      15535573 15506833 16653120 15921154
                                           2010     2009
Investimentos - ANC                     2061186  1806734
Participacoes Societarias - ANC         2061186  1806734
Participacoes em Coligadas - ANC        1677101  1804315
Outras Participacoes Societarias - ANC   384085     2419
Propriedades para Investimento - ANC          0        0
Imobilizado - ANC                      14275006 11950118
                                                                    chk
Investimentos - ANC                                       Investimentos
Participacoes Societarias - ANC               Participacoes Societarias
Participacoes em Coligadas - ANC             Participacoes em Coligadas
Outras Participacoes Societarias - ANC Outras Participacoes Societarias
Propriedades para Investimento - ANC     Propriedades para Investimento
Imobilizado - ANC                                           Imobilizado
                                       Classe
Investimentos - ANC                       ANC
Participacoes Societarias - ANC           ANC
Participacoes em Coligadas - ANC          ANC
Outras Participacoes Societarias - ANC    ANC
Propriedades para Investimento - ANC      ANC
Imobilizado - ANC                         ANC
tail(Data.PERM)
                                                  Conta   2018   2017
Imobilizado Arrendado - ANC       Imobilizado Arrendado      0      0
Imobilizado em Andamento - ANC Imobilizado em Andamento 846012 844225
Intangivel - ANC                             Intangivel 695596 677190
Intangiveis - ANC                           Intangiveis      0      0
Contrato de Concessao - ANC       Contrato de Concessao      0      0
Goodwill - ANC                                 Goodwill      0      0
                                 2016    2015    2014    2013    2012
Imobilizado Arrendado - ANC         0       0       0       0       0
Imobilizado em Andamento - ANC 892605 1425978 2011008 1916903 2209796
Intangivel - ANC               693918  337922 2377679 2400577 2442648
Intangiveis - ANC                   0       0       0       0       0
Contrato de Concessao - ANC         0       0       0       0       0
Goodwill - ANC                      0       0       0       0       0
                                  2011    2010    2009
Imobilizado Arrendado - ANC          0       0       0
Imobilizado em Andamento - ANC 5431352 4530621 2884268
Intangivel - ANC               2453952 1741850 1737495
Intangiveis - ANC                    0       0       0
Contrato de Concessao - ANC          0       0       0
Goodwill - ANC                       0       0       0
                                                    chk Classe
Imobilizado Arrendado - ANC       Imobilizado Arrendado    ANC
Imobilizado em Andamento - ANC Imobilizado em Andamento    ANC
Intangivel - ANC                             Intangivel    ANC
Intangiveis - ANC                           Intangiveis    ANC
Contrato de Concessao - ANC       Contrato de Concessao    ANC
Goodwill - ANC                                 Goodwill    ANC
# Identificar Index divisorias dentro do Passivo: Passivo Circulante, Passivo Nao Circulante, PL

header.PC=as.numeric(which(rownames(Data.Passivo) == "Passivo Circulante - PC"))


header.PNC=as.numeric(which(rownames(Data.Passivo) == "Passivo Nao Circulante - PNC"))


header.PL=as.numeric(which(rownames(Data.Passivo) == "Patrimonio Liquido Consolidado - PL"))


# Separar os subconjuntos de contas Passivo: Passivo Circulante, Passivo Nao Circulante, PL
end.Passivo=nrow(Data.Passivo)
ncol(Data.Ativo)
[1] 13
Data.PC=Data.Passivo[header.PC:(header.PNC-1),]
head(Data.PC)
                                                                   Conta
Passivo Circulante - PC                               Passivo Circulante
Obrigacoes Sociais e Trabalhistas - PC Obrigacoes Sociais e Trabalhistas
Obrigacoes Sociais - PC                               Obrigacoes Sociais
Obrigacoes Trabalhistas - PC                     Obrigacoes Trabalhistas
Fornecedores - PC                                           Fornecedores
Fornecedores Nacionais - PC                       Fornecedores Nacionais
                                          2018    2017    2016    2015
Passivo Circulante - PC                3335670 3046420 1752244 4495923
Obrigacoes Sociais e Trabalhistas - PC  205583  188735  197076  278149
Obrigacoes Sociais - PC                      0       0       0       0
Obrigacoes Trabalhistas - PC                 0       0       0       0
Fornecedores - PC                      1133763  976917  846377  820571
Fornecedores Nacionais - PC                  0       0       0       0
                                          2014    2013    2012    2011
Passivo Circulante - PC                4769426 5087491 5402921 4092173
Obrigacoes Sociais e Trabalhistas - PC  280284  250849       0       0
Obrigacoes Sociais - PC                      0       0       0       0
Obrigacoes Trabalhistas - PC                 0       0       0       0
Fornecedores - PC                      1671540 2422024 2283644 1462373
Fornecedores Nacionais - PC                  0       0       0       0
                                          2010    2009
Passivo Circulante - PC                3497015 3036027
Obrigacoes Sociais e Trabalhistas - PC       0  206519
Obrigacoes Sociais - PC                      0       0
Obrigacoes Trabalhistas - PC                 0       0
Fornecedores - PC                      1288109  815286
Fornecedores Nacionais - PC                  0       0
                                                                     chk
Passivo Circulante - PC                               Passivo Circulante
Obrigacoes Sociais e Trabalhistas - PC Obrigacoes Sociais e Trabalhistas
Obrigacoes Sociais - PC                               Obrigacoes Sociais
Obrigacoes Trabalhistas - PC                     Obrigacoes Trabalhistas
Fornecedores - PC                                           Fornecedores
Fornecedores Nacionais - PC                       Fornecedores Nacionais
                                       Classe
Passivo Circulante - PC                    PC
Obrigacoes Sociais e Trabalhistas - PC     PC
Obrigacoes Sociais - PC                    PC
Obrigacoes Trabalhistas - PC               PC
Fornecedores - PC                          PC
Fornecedores Nacionais - PC                PC
tail(Data.PC)
                                                                                                                         Conta
Provisoes para Garantias - PC                                                                         Provisoes para Garantias
Provisoes para Reestruturacao - PC                                                               Provisoes para Reestruturacao
Provisoes para Passivos Ambientais e de Desativacao - PC                   Provisoes para Passivos Ambientais e de Desativacao
Passivos sobre Ativos Nao-Correntes a Venda e Descontinuados - PC Passivos sobre Ativos Nao-Correntes a Venda e Descontinuados
Passivos sobre Ativos Nao-Correntes a Venda - PC                                   Passivos sobre Ativos Nao-Correntes a Venda
Passivos sobre Ativos de Operacoes Descontinuadas - PC                       Passivos sobre Ativos de Operacoes Descontinuadas
                                                                  2018
Provisoes para Garantias - PC                                        0
Provisoes para Reestruturacao - PC                                   0
Provisoes para Passivos Ambientais e de Desativacao - PC             0
Passivos sobre Ativos Nao-Correntes a Venda e Descontinuados - PC    0
Passivos sobre Ativos Nao-Correntes a Venda - PC                     0
Passivos sobre Ativos de Operacoes Descontinuadas - PC               0
                                                                  2017
Provisoes para Garantias - PC                                        0
Provisoes para Reestruturacao - PC                                   0
Provisoes para Passivos Ambientais e de Desativacao - PC             0
Passivos sobre Ativos Nao-Correntes a Venda e Descontinuados - PC    0
Passivos sobre Ativos Nao-Correntes a Venda - PC                     0
Passivos sobre Ativos de Operacoes Descontinuadas - PC               0
                                                                  2016
Provisoes para Garantias - PC                                        0
Provisoes para Reestruturacao - PC                                   0
Provisoes para Passivos Ambientais e de Desativacao - PC             0
Passivos sobre Ativos Nao-Correntes a Venda e Descontinuados - PC    0
Passivos sobre Ativos Nao-Correntes a Venda - PC                     0
Passivos sobre Ativos de Operacoes Descontinuadas - PC               0
                                                                  2015
Provisoes para Garantias - PC                                        0
Provisoes para Reestruturacao - PC                                   0
Provisoes para Passivos Ambientais e de Desativacao - PC             0
Passivos sobre Ativos Nao-Correntes a Venda e Descontinuados - PC    0
Passivos sobre Ativos Nao-Correntes a Venda - PC                     0
Passivos sobre Ativos de Operacoes Descontinuadas - PC               0
                                                                  2014
Provisoes para Garantias - PC                                        0
Provisoes para Reestruturacao - PC                                   0
Provisoes para Passivos Ambientais e de Desativacao - PC             0
Passivos sobre Ativos Nao-Correntes a Venda e Descontinuados - PC    0
Passivos sobre Ativos Nao-Correntes a Venda - PC                     0
Passivos sobre Ativos de Operacoes Descontinuadas - PC               0
                                                                  2013
Provisoes para Garantias - PC                                        0
Provisoes para Reestruturacao - PC                                   0
Provisoes para Passivos Ambientais e de Desativacao - PC             0
Passivos sobre Ativos Nao-Correntes a Venda e Descontinuados - PC    0
Passivos sobre Ativos Nao-Correntes a Venda - PC                     0
Passivos sobre Ativos de Operacoes Descontinuadas - PC               0
                                                                  2012
Provisoes para Garantias - PC                                        0
Provisoes para Reestruturacao - PC                                   0
Provisoes para Passivos Ambientais e de Desativacao - PC             0
Passivos sobre Ativos Nao-Correntes a Venda e Descontinuados - PC    0
Passivos sobre Ativos Nao-Correntes a Venda - PC                     0
Passivos sobre Ativos de Operacoes Descontinuadas - PC               0
                                                                  2011
Provisoes para Garantias - PC                                        0
Provisoes para Reestruturacao - PC                                   0
Provisoes para Passivos Ambientais e de Desativacao - PC             0
Passivos sobre Ativos Nao-Correntes a Venda e Descontinuados - PC    0
Passivos sobre Ativos Nao-Correntes a Venda - PC                     0
Passivos sobre Ativos de Operacoes Descontinuadas - PC               0
                                                                  2010
Provisoes para Garantias - PC                                        0
Provisoes para Reestruturacao - PC                                   0
Provisoes para Passivos Ambientais e de Desativacao - PC             0
Passivos sobre Ativos Nao-Correntes a Venda e Descontinuados - PC    0
Passivos sobre Ativos Nao-Correntes a Venda - PC                     0
Passivos sobre Ativos de Operacoes Descontinuadas - PC               0
                                                                  2009
Provisoes para Garantias - PC                                        0
Provisoes para Reestruturacao - PC                                   0
Provisoes para Passivos Ambientais e de Desativacao - PC             0
Passivos sobre Ativos Nao-Correntes a Venda e Descontinuados - PC    0
Passivos sobre Ativos Nao-Correntes a Venda - PC                    NA
Passivos sobre Ativos de Operacoes Descontinuadas - PC               0
                                                                                                                           chk
Provisoes para Garantias - PC                                                                         Provisoes para Garantias
Provisoes para Reestruturacao - PC                                                               Provisoes para Reestruturacao
Provisoes para Passivos Ambientais e de Desativacao - PC                   Provisoes para Passivos Ambientais e de Desativacao
Passivos sobre Ativos Nao-Correntes a Venda e Descontinuados - PC Passivos sobre Ativos Nao-Correntes a Venda e Descontinuados
Passivos sobre Ativos Nao-Correntes a Venda - PC                                   Passivos sobre Ativos Nao-Correntes a Venda
Passivos sobre Ativos de Operacoes Descontinuadas - PC                       Passivos sobre Ativos de Operacoes Descontinuadas
                                                                  Classe
Provisoes para Garantias - PC                                         PC
Provisoes para Reestruturacao - PC                                    PC
Provisoes para Passivos Ambientais e de Desativacao - PC              PC
Passivos sobre Ativos Nao-Correntes a Venda e Descontinuados - PC     PC
Passivos sobre Ativos Nao-Correntes a Venda - PC                      PC
Passivos sobre Ativos de Operacoes Descontinuadas - PC                PC
Data.PNC=Data.Passivo[header.PNC:(header.PL-1),]
head(Data.PNC)
                                                                              Conta
Passivo Nao Circulante - PNC                                 Passivo Nao Circulante
Emprestimos e Financiamentos - PNC                     Emprestimos e Financiamentos
Emprestimos e Financiamentos  subconta - PNC Emprestimos e Financiamentos  subconta
Em Moeda Nacional - PNC                                           Em Moeda Nacional
Em Moeda Estrangeira - PNC                                     Em Moeda Estrangeira
Debentures - PNC                                                         Debentures
                                                2018    2017    2016
Passivo Nao Circulante - PNC                 7490790 7754093 9310867
Emprestimos e Financiamentos - PNC           5382754 5645802 6856600
Emprestimos e Financiamentos  subconta - PNC 4562971 4758468 5864416
Em Moeda Nacional - PNC                            0       0       0
Em Moeda Estrangeira - PNC                         0       0       0
Debentures - PNC                              819783  887334  992184
                                                2015    2014    2013
Passivo Nao Circulante - PNC                 8268552 6953021 7436558
Emprestimos e Financiamentos - PNC           5957213 4978324 5510811
Emprestimos e Financiamentos  subconta - PNC 4958032 3979775 4512891
Em Moeda Nacional - PNC                            0       0       0
Em Moeda Estrangeira - PNC                         0       0       0
Debentures - PNC                              999181  998549  997920
                                                2012     2011    2010
Passivo Nao Circulante - PNC                 8858225 10254047 9258299
Emprestimos e Financiamentos - PNC           6467587  7623126 6904124
Emprestimos e Financiamentos  subconta - PNC 6467587  7373126 6404124
Em Moeda Nacional - PNC                            0        0       0
Em Moeda Estrangeira - PNC                         0        0       0
Debentures - PNC                                   0   250000  500000
                                                2009
Passivo Nao Circulante - PNC                 6903845
Emprestimos e Financiamentos - PNC           4784531
Emprestimos e Financiamentos  subconta - PNC 3684531
Em Moeda Nacional - PNC                            0
Em Moeda Estrangeira - PNC                         0
Debentures - PNC                             1100000
                                                                      chk
Passivo Nao Circulante - PNC                       Passivo Nao Circulante
Emprestimos e Financiamentos - PNC           Emprestimos e Financiamentos
Emprestimos e Financiamentos  subconta - PNC Emprestimos e Financiamentos
Em Moeda Nacional - PNC                                 Em Moeda Nacional
Em Moeda Estrangeira - PNC                           Em Moeda Estrangeira
Debentures - PNC                                               Debentures
                                             Classe
Passivo Nao Circulante - PNC                    PNC
Emprestimos e Financiamentos - PNC              PNC
Emprestimos e Financiamentos  subconta - PNC    PNC
Em Moeda Nacional - PNC                         PNC
Em Moeda Estrangeira - PNC                      PNC
Debentures - PNC                                PNC
tail(Data.PNC)
                                                                                                    Conta
Passivos sobre Ativos Nao-Correntes a Venda - PNC             Passivos sobre Ativos Nao-Correntes a Venda
Passivos sobre Ativos de Operacoes Descontinuadas - PNC Passivos sobre Ativos de Operacoes Descontinuadas
Lucros e Receitas a Apropriar - PNC                                         Lucros e Receitas a Apropriar
Lucros a Apropriar - PNC                                                               Lucros a Apropriar
Receitas a Apropriar - PNC                                                           Receitas a Apropriar
Subvencoes de Investimento a Apropriar - PNC                       Subvencoes de Investimento a Apropriar
                                                        2018 2017 2016
Passivos sobre Ativos Nao-Correntes a Venda - PNC          0    0    0
Passivos sobre Ativos de Operacoes Descontinuadas - PNC    0    0    0
Lucros e Receitas a Apropriar - PNC                        0    0    0
Lucros a Apropriar - PNC                                   0    0    0
Receitas a Apropriar - PNC                                 0    0    0
Subvencoes de Investimento a Apropriar - PNC               0    0    0
                                                        2015 2014 2013
Passivos sobre Ativos Nao-Correntes a Venda - PNC          0    0    0
Passivos sobre Ativos de Operacoes Descontinuadas - PNC    0    0    0
Lucros e Receitas a Apropriar - PNC                        0    0    0
Lucros a Apropriar - PNC                                   0    0    0
Receitas a Apropriar - PNC                                 0    0    0
Subvencoes de Investimento a Apropriar - PNC               0    0    0
                                                        2012 2011 2010
Passivos sobre Ativos Nao-Correntes a Venda - PNC          0    0    0
Passivos sobre Ativos de Operacoes Descontinuadas - PNC    0    0    0
Lucros e Receitas a Apropriar - PNC                        0    0    0
Lucros a Apropriar - PNC                                   0    0    0
Receitas a Apropriar - PNC                                 0    0    0
Subvencoes de Investimento a Apropriar - PNC               0    0    0
                                                        2009
Passivos sobre Ativos Nao-Correntes a Venda - PNC          0
Passivos sobre Ativos de Operacoes Descontinuadas - PNC    0
Lucros e Receitas a Apropriar - PNC                        0
Lucros a Apropriar - PNC                                   0
Receitas a Apropriar - PNC                                 0
Subvencoes de Investimento a Apropriar - PNC               0
                                                                                                      chk
Passivos sobre Ativos Nao-Correntes a Venda - PNC             Passivos sobre Ativos Nao-Correntes a Venda
Passivos sobre Ativos de Operacoes Descontinuadas - PNC Passivos sobre Ativos de Operacoes Descontinuadas
Lucros e Receitas a Apropriar - PNC                                         Lucros e Receitas a Apropriar
Lucros a Apropriar - PNC                                                               Lucros a Apropriar
Receitas a Apropriar - PNC                                                           Receitas a Apropriar
Subvencoes de Investimento a Apropriar - PNC                       Subvencoes de Investimento a Apropriar
                                                        Classe
Passivos sobre Ativos Nao-Correntes a Venda - PNC          PNC
Passivos sobre Ativos de Operacoes Descontinuadas - PNC    PNC
Lucros e Receitas a Apropriar - PNC                        PNC
Lucros a Apropriar - PNC                                   PNC
Receitas a Apropriar - PNC                                 PNC
Subvencoes de Investimento a Apropriar - PNC               PNC
Data.PL=Data.Passivo[header.PL:end.Passivo,]
head(Data.PL)
                                                                                 Conta
Patrimonio Liquido Consolidado - PL                     Patrimonio Liquido Consolidado
Capital Social Realizado - PL                                 Capital Social Realizado
Reservas de Capital - PL                                           Reservas de Capital
Agio na Emissao de Acoes - PL                                 Agio na Emissao de Acoes
Reserva Especial de agio na Incorporacao - PL Reserva Especial de agio na Incorporacao
Alienacao de Bonus de Subscricao - PL                 Alienacao de Bonus de Subscricao
                                                  2018     2017     2016
Patrimonio Liquido Consolidado - PL           15697391 15183964 15191634
Capital Social Realizado - PL                 13200295 13200295 13200295
Reservas de Capital - PL                        309391   311747   309445
Agio na Emissao de Acoes - PL                        0        0        0
Reserva Especial de agio na Incorporacao - PL        0        0        0
Alienacao de Bonus de Subscricao - PL                0        0        0
                                                  2015     2014     2013
Patrimonio Liquido Consolidado - PL           14993857 18761615 18833945
Capital Social Realizado - PL                 12150000 12150000 12150000
Reservas de Capital - PL                        327191   318851   313084
Agio na Emissao de Acoes - PL                        0        0        0
Reserva Especial de agio na Incorporacao - PL        0        0        0
Alienacao de Bonus de Subscricao - PL                0        0        0
                                                  2012     2011     2010
Patrimonio Liquido Consolidado - PL           18513073 19014205 19029437
Capital Social Realizado - PL                 12150000 12150000 12150000
Reservas de Capital - PL                        219684     2274        0
Agio na Emissao de Acoes - PL                        0        0        0
Reserva Especial de agio na Incorporacao - PL        0        0        0
Alienacao de Bonus de Subscricao - PL                0        0        0
                                                  2009
Patrimonio Liquido Consolidado - PL           16001058
Capital Social Realizado - PL                 12150000
Reservas de Capital - PL                             0
Agio na Emissao de Acoes - PL                        0
Reserva Especial de agio na Incorporacao - PL        0
Alienacao de Bonus de Subscricao - PL                0
                                                                                   chk
Patrimonio Liquido Consolidado - PL                     Patrimônio Liquido Consolidado
Capital Social Realizado - PL                                 Capital Social Realizado
Reservas de Capital - PL                                           Reservas de Capital
Agio na Emissao de Acoes - PL                                 agio na Emissao de Acoes
Reserva Especial de agio na Incorporacao - PL Reserva Especial de agio na Incorporacao
Alienacao de Bonus de Subscricao - PL                 Alienacao de Bônus de Subscricao
                                              Classe
Patrimonio Liquido Consolidado - PL               PL
Capital Social Realizado - PL                     PL
Reservas de Capital - PL                          PL
Agio na Emissao de Acoes - PL                     PL
Reserva Especial de agio na Incorporacao - PL     PL
Alienacao de Bonus de Subscricao - PL             PL
tail(Data.PL)
                                                                                           Conta
Para Investimentos e Capital de Giro - PL                   Para Investimentos e Capital de Giro
Lucros/Prejuizos Acumulados - PL                                     Lucros/Prejuizos Acumulados
Ajustes de Avaliacao Patrimonial - PL                           Ajustes de Avaliacao Patrimonial
Ajustes Acumulados de Conversao - PL                             Ajustes Acumulados de Conversao
Outros Resultados Abrangentes - PL                                 Outros Resultados Abrangentes
Participacao dos Acionistas Nao Controladores - PL Participacao dos Acionistas Nao Controladores
                                                      2018    2017    2016
Para Investimentos e Capital de Giro - PL           718958  190556       0
Lucros/Prejuizos Acumulados - PL                         0       0       0
Ajustes de Avaliacao Patrimonial - PL               -10330   60546   26000
Ajustes Acumulados de Conversao - PL                     0       0       0
Outros Resultados Abrangentes - PL                       0       0       0
Participacao dos Acionistas Nao Controladores - PL 1431093 1409169 1655894
                                                      2015    2014    2013
Para Investimentos e Capital de Giro - PL                0  157650       0
Lucros/Prejuizos Acumulados - PL                         0       0       0
Ajustes de Avaliacao Patrimonial - PL               311748  419753  549670
Ajustes Acumulados de Conversao - PL                     0       0       0
Outros Resultados Abrangentes - PL                       0       0       0
Participacao dos Acionistas Nao Controladores - PL 1584879 2041951 2122037
                                                      2012    2011    2010
Para Investimentos e Capital de Giro - PL           150812  770250  718784
Lucros/Prejuizos Acumulados - PL                         0       0       0
Ajustes de Avaliacao Patrimonial - PL               367361  640697  965607
Ajustes Acumulados de Conversao - PL                     0       0       0
Outros Resultados Abrangentes - PL                       0       0       0
Participacao dos Acionistas Nao Controladores - PL 1904644 1730412 1596838
                                                      2009
Para Investimentos e Capital de Giro - PL          2705686
Lucros/Prejuizos Acumulados - PL                    -41277
Ajustes de Avaliacao Patrimonial - PL               221901
Ajustes Acumulados de Conversao - PL                     0
Outros Resultados Abrangentes - PL                       0
Participacao dos Acionistas Nao Controladores - PL  355406
                                                                                             chk
Para Investimentos e Capital de Giro - PL                   Para Investimentos e Capital de Giro
Lucros/Prejuizos Acumulados - PL                                     Lucros/Prejuizos Acumulados
Ajustes de Avaliacao Patrimonial - PL                           Ajustes de Avaliacao Patrimonial
Ajustes Acumulados de Conversao - PL                             Ajustes Acumulados de Conversao
Outros Resultados Abrangentes - PL                                 Outros Resultados Abrangentes
Participacao dos Acionistas Nao Controladores - PL Participacao dos Acionistas Nao Controladores
                                                   Classe
Para Investimentos e Capital de Giro - PL              PL
Lucros/Prejuizos Acumulados - PL                       PL
Ajustes de Avaliacao Patrimonial - PL                  PL
Ajustes Acumulados de Conversao - PL                   PL
Outros Resultados Abrangentes - PL                     PL
Participacao dos Acionistas Nao Controladores - PL     PL
# head(Data.Ativo)

m.Ativo= subset(Data.Ativo, select= -c(Conta, chk, Classe))
m.Passivo= subset(Data.Passivo, select= -c(Conta, chk, Classe ))
m.DRE= subset(Data.DRE, select= -c(Conta, chk, Classe ))
m.DRA= subset(Data.DRA, select= -c(Conta, chk, Classe ))
m.DFC= subset(Data.DFC, select= -c(Conta, chk , Classe ))
m.DVA= subset(Data.DVA, select= -c(Conta, chk, Classe ))
m.MERC= subset(Data.MERC, select= -c(Conta, chk, Classe ))
m.AC= subset(Data.AC, select= -c(Conta, chk, Classe ))
m.ANC= subset(Data.ANC, select= -c(Conta, chk, Classe ))
m.RLP= subset(Data.RLP, select= -c(Conta, chk, Classe ))
m.PERM= subset(Data.PERM, select= -c(Conta, chk, Classe ))
m.PC= subset(Data.PC, select= -c(Conta, chk, Classe ))
m.PNC= subset(Data.PNC, select= -c(Conta, chk, Classe ))
m.PL= subset(Data.PL, select= -c(Conta, chk, Classe ))


head(m.PL)
                                                  2018     2017     2016
Patrimonio Liquido Consolidado - PL           15697391 15183964 15191634
Capital Social Realizado - PL                 13200295 13200295 13200295
Reservas de Capital - PL                        309391   311747   309445
Agio na Emissao de Acoes - PL                        0        0        0
Reserva Especial de agio na Incorporacao - PL        0        0        0
Alienacao de Bonus de Subscricao - PL                0        0        0
                                                  2015     2014     2013
Patrimonio Liquido Consolidado - PL           14993857 18761615 18833945
Capital Social Realizado - PL                 12150000 12150000 12150000
Reservas de Capital - PL                        327191   318851   313084
Agio na Emissao de Acoes - PL                        0        0        0
Reserva Especial de agio na Incorporacao - PL        0        0        0
Alienacao de Bonus de Subscricao - PL                0        0        0
                                                  2012     2011     2010
Patrimonio Liquido Consolidado - PL           18513073 19014205 19029437
Capital Social Realizado - PL                 12150000 12150000 12150000
Reservas de Capital - PL                        219684     2274        0
Agio na Emissao de Acoes - PL                        0        0        0
Reserva Especial de agio na Incorporacao - PL        0        0        0
Alienacao de Bonus de Subscricao - PL                0        0        0
                                                  2009
Patrimonio Liquido Consolidado - PL           16001058
Capital Social Realizado - PL                 12150000
Reservas de Capital - PL                             0
Agio na Emissao de Acoes - PL                        0
Reserva Especial de agio na Incorporacao - PL        0
Alienacao de Bonus de Subscricao - PL                0
tail(m.PL)
                                                      2018    2017    2016
Para Investimentos e Capital de Giro - PL           718958  190556       0
Lucros/Prejuizos Acumulados - PL                         0       0       0
Ajustes de Avaliacao Patrimonial - PL               -10330   60546   26000
Ajustes Acumulados de Conversao - PL                     0       0       0
Outros Resultados Abrangentes - PL                       0       0       0
Participacao dos Acionistas Nao Controladores - PL 1431093 1409169 1655894
                                                      2015    2014    2013
Para Investimentos e Capital de Giro - PL                0  157650       0
Lucros/Prejuizos Acumulados - PL                         0       0       0
Ajustes de Avaliacao Patrimonial - PL               311748  419753  549670
Ajustes Acumulados de Conversao - PL                     0       0       0
Outros Resultados Abrangentes - PL                       0       0       0
Participacao dos Acionistas Nao Controladores - PL 1584879 2041951 2122037
                                                      2012    2011    2010
Para Investimentos e Capital de Giro - PL           150812  770250  718784
Lucros/Prejuizos Acumulados - PL                         0       0       0
Ajustes de Avaliacao Patrimonial - PL               367361  640697  965607
Ajustes Acumulados de Conversao - PL                     0       0       0
Outros Resultados Abrangentes - PL                       0       0       0
Participacao dos Acionistas Nao Controladores - PL 1904644 1730412 1596838
                                                      2009
Para Investimentos e Capital de Giro - PL          2705686
Lucros/Prejuizos Acumulados - PL                    -41277
Ajustes de Avaliacao Patrimonial - PL               221901
Ajustes Acumulados de Conversao - PL                     0
Outros Resultados Abrangentes - PL                       0
Participacao dos Acionistas Nao Controladores - PL  355406

Análise Fundamentalista (V)

Aplicar Correção Monetária

anos_uso=c("2018","2017","2016","2015","2014","2013","2012","2011","2010","2009")

 #Ativo
v.CM.aj=m.MERC["Fator de Correcao - MERC",] # linha de correção monetária
v.IGPDI.aj=m.MERC["IGP-DI - MERC",] # linha de IGP-DI

m.Ativo.aj.cm= m.Ativo
rownomes=rownames(m.Ativo)

m.Ativo.aj.cm=as.data.frame(sweep(m.Ativo.aj.cm, 2, unlist(v.CM.aj), `*`))
colnames(m.Ativo.aj.cm)=anos_uso

# Passivo
m.Passivo.aj.cm= m.Passivo
rownomes=rownames(m.Ativo)

m.Passivo.aj.cm=as.data.frame(sweep(m.Passivo.aj.cm, 2, unlist(v.CM.aj), `*`))
colnames(m.Passivo.aj.cm)=anos_uso

# DRE

m.DRE.aj.cm= m.DRE
rownomes=rownames(m.DRE)

m.DRE.aj.cm=as.data.frame(sweep(m.DRE.aj.cm, 2, unlist(v.CM.aj), `*`))
colnames(m.DRE.aj.cm)=anos_uso

# DRA

m.DRA.aj.cm= m.DRA
rownomes=rownames(m.DRA)

m.DRA.aj.cm=as.data.frame(sweep(m.DRA.aj.cm, 2, unlist(v.CM.aj), `*`))
colnames(m.DRA.aj.cm)=anos_uso


# DFC

m.DFC.aj.cm= m.DFC
rownomes=rownames(m.DFC)

m.DFC.aj.cm=as.data.frame(sweep(m.DFC.aj.cm, 2, unlist(v.CM.aj), `*`))
colnames(m.DFC.aj.cm)=anos_uso

# DVA

m.DVA.aj.cm= m.DVA
rownomes=rownames(m.DVA)

m.DVA.aj.cm=as.data.frame(sweep(m.DVA.aj.cm, 2, unlist(v.CM.aj), `*`))
colnames(m.DVA.aj.cm)=anos_uso

# PC

m.PC.aj.cm= m.PC
rownomes=rownames(m.PC)

m.PC.aj.cm=as.data.frame(sweep(m.PC.aj.cm, 2, unlist(v.CM.aj), `*`))
colnames(m.PC.aj.cm)=anos_uso

# PNC

m.PNC.aj.cm= m.PNC
rownomes=rownames(m.PNC)

m.PNC.aj.cm=as.data.frame(sweep(m.PNC.aj.cm, 2, unlist(v.CM.aj), `*`))
colnames(m.PNC.aj.cm)=anos_uso

# PL

m.PL.aj.cm= m.PL
rownomes=rownames(m.PC)

m.PL.aj.cm=as.data.frame(sweep(m.PL.aj.cm, 2, unlist(v.CM.aj), `*`))
colnames(m.PL.aj.cm)=anos_uso


# AC

m.AC.aj.cm= m.AC
rownomes=rownames(m.AC)

m.AC.aj.cm=as.data.frame(sweep(m.AC.aj.cm, 2, unlist(v.CM.aj), `*`))
colnames(m.AC.aj.cm)=anos_uso

# ANC

m.ANC.aj.cm= m.ANC
rownomes=rownames(m.ANC)

m.ANC.aj.cm=as.data.frame(sweep(m.ANC.aj.cm, 2, unlist(v.CM.aj), `*`))
colnames(m.ANC.aj.cm)=anos_uso

# RLP

m.RLP.aj.cm= m.RLP
rownomes=rownames(m.RLP)

m.RLP.aj.cm=as.data.frame(sweep(m.RLP.aj.cm, 2, unlist(v.CM.aj), `*`))
colnames(m.RLP.aj.cm)=anos_uso

# PERM

m.PERM.aj.cm= m.PERM
rownomes=rownames(m.PERM)

m.PERM.aj.cm=as.data.frame(sweep(m.PERM.aj.cm, 2, unlist(v.CM.aj), `*`))
colnames(m.PERM.aj.cm)=anos_uso

Ajuste de Contas

Ajustes das contas sem NE (BP):

– Ativo:

"Adiantamentos a Fornecedores - AC”
"Outras Contas a Receber - AC”
"Estoques - ANC”
"Outras Contas a Receber - ANC”
"Outros - ANC”

– Passivo:

"Adiantamentos de Clientes - PC”
"Contas a Pagar - PC”
"Outros - PNC”

Análise Fundamentalista (VI)

Ajuste de Contas sem NE

# Ajuste AC e ANC: retirada das contas sem NE e com possibilidades de gerenciamento

aj1.ac=as.numeric(m.Ativo.aj.cm["Adiantamentos a Fornecedores - AC",])
aj2.ac=as.numeric(m.Ativo.aj.cm["Outras Contas a Receber - AC",])
is.data.frame(aj2.ac)
[1] FALSE
aj.ac=aj1.ac + aj2.ac

aj1.anc=as.numeric(m.Ativo.aj.cm["Estoques - ANC",])
aj2.anc=as.numeric(m.Ativo.aj.cm["Outras Contas a Receber - ANC",])
aj3.anc=as.numeric(m.Ativo.aj.cm["Outros - ANC",])

aj.anc=aj1.anc+aj2.anc+aj3.anc



# # Ajuste PC e PNC: retirada das contas sem NE e com possibilidades de gerenciamento

aj1.pc=as.numeric(m.Passivo.aj.cm["Adiantamentos de Clientes - PC",])
aj2.pc=as.numeric(m.Passivo.aj.cm["Contas a Pagar - PC",])

aj.pc=aj1.pc+aj2.pc

aj1.pnc=as.numeric(m.Passivo.aj.cm["Outros - PNC",])

aj.pnc=aj1.pnc



# Ajuste: retirada das contas sem NE e com possibilidades de gerenciamento

m.Ativo.aj=as.data.frame(m.Ativo.aj.cm)
m.Ativo.aj["Ativo Total - AT",]=as.numeric(m.Ativo.aj.cm["Ativo Total - AT",])-aj.ac-aj.anc
m.Ativo.aj["Ativo Circulante - AC",]=as.numeric(m.Ativo.aj.cm["Ativo Circulante - AC",])-aj.ac
m.Ativo.aj["Ativo Nao Circulante - ANC",]=as.numeric(m.Ativo.aj.cm["Ativo Nao Circulante - ANC",])-aj.anc
rownomes1=rownames(m.Ativo)
row.names(m.Ativo.aj)=rownomes1


m.Passivo.aj=as.data.frame(m.Passivo.aj.cm)
m.Passivo.aj["Passivo Total - PT",]=as.numeric(m.Passivo.aj.cm["Passivo Total - PT",])-aj.pc-aj.pnc
m.Passivo.aj["Passivo Circulante - PC",]=as.numeric(m.Passivo.aj.cm["Passivo Circulante - PC",])-aj.pc
m.Passivo.aj["Passivo Nao Circulante - PNC",]=as.numeric(m.Passivo.aj.cm["Passivo Nao Circulante - PNC",])-aj.pnc
rownomes=rownames(m.Passivo)
row.names(m.Passivo.aj)=rownomes

m.AC.aj=as.data.frame(m.AC.aj.cm)
m.AC.aj["Ativo Circulante - AC",]=as.numeric(m.AC.aj.cm["Ativo Circulante - AC",])-aj.ac
rownomes=rownames(m.AC)
row.names(m.AC.aj)=rownomes


m.ANC.aj=as.data.frame(m.ANC.aj.cm)
m.ANC.aj["Ativo Nao Circulante - ANC",]=as.numeric(m.ANC.aj.cm["Ativo Nao Circulante - ANC",])-aj.anc
rownomes=rownames(m.ANC)
row.names(m.ANC.aj)=rownomes

m.PC.aj=as.data.frame(m.PC.aj.cm)
m.PC.aj["Passivo Circulante - PC",]=as.numeric(m.PC.aj.cm["Passivo Circulante - PC",])-aj.pc
rownomes=rownames(m.PC)
row.names(m.PC.aj)=rownomes


m.PNC.aj=as.data.frame(m.PNC.aj.cm)
m.PNC.aj["Passivo Nao Circulante - PNC",]=as.numeric(m.PNC.aj.cm["Passivo Nao Circulante - PNC",])-aj.pnc
rownomes=rownames(m.PNC)
row.names(m.PNC.aj)=rownomes


m.PL.aj=as.data.frame(m.PL.aj.cm)
m.PERM.aj=as.data.frame(m.PERM.aj.cm)
m.RLP.aj=as.data.frame(m.RLP.aj.cm)

Análise Fundamentalista (VII)

Valores Médios entre anos Adjacentes: “Smooth de Dados Temporais” (Assaf Neto) Pode se fazer a média móvel, mas fiz mais difícil…

# Valores medios dos anos no BP

anos.med= c("2018","2017","2016","2015","2014","2013","2012","2011","2010")

anos_uso = c("2018","2017","2016","2015","2014","2013","2012","2011","2010","2009")

rownomes=rownames(m.Ativo)
m.Ativo.aj = as.data.frame(sapply(m.Ativo.aj, as.numeric))
m.Ativo.aj.med=m.Ativo.aj

m.Ativo.aj.med[ ,anos.med]
       2018         2017       2016       2015     2014     2013
1        NA           NA         NA         NA       NA       NA
2  26307805 27483524.547 25889970.6 31650337.6 36838882 35995400
3   8319920  7641548.840  6273686.2  7730695.4  9822229 10789140
4   1106790  1896319.094   713837.5   918800.3  2573717  3041621
5    586559   582329.639  1524699.0  1405499.0   905262   965243
6         0        0.000        0.0        0.0        0        0
7         0        0.000        0.0        0.0        0        0
8         0        0.000        0.0        0.0        0        0
9         0        0.000        0.0        0.0        0        0
10        0        0.000        0.0        0.0        0        0
11  1894291  1665965.184  1169330.2  1639984.4  1520817  1893862
12        0  1665965.184  1169330.2  1639984.4  1520817  1893862
13        0        0.000        0.0        0.0        0        0
14  3880635  2959759.486  2582481.9  3155485.0  4290014  4447659
15        0        0.000        0.0        0.0        0        0
16        0        0.000        0.0        0.0        0        0
17        0        0.000        0.0        0.0        0        0
18        0        0.000        0.0        0.0        0        0
19   856042   665614.297   376325.7   796268.2   768357   579296
20        0        0.000        0.0        0.0        0        0
21        0        0.000        0.0        0.0        0        0
22   856042   665614.297   376325.7   796268.2   768357   579296
23   617731   189410.958   124141.9   242189.2   437227   373701
24   130197   198796.306   112458.6   190875.6        0        0
25    13562   148955.320     2442.4     2706.1    15421    14338
26     4050     4639.659     7165.4    14325.0    21772    15641
27      347   123799.202    85822.7   171016.7   214167   122899
28    90155       12.852    44294.7   175155.7    79770    52716
29 17987885 19841975.707 19616284.4 23919642.2 27016653 25206261
30  4700822  4408170.519  4229539.9  5393393.7  3878989  3269356
31        0        0.000        0.0        0.0        0        0
32        0        0.000        0.0        0.0        0        0
33        0        0.000        0.0        0.0        0        0
34        0        0.000        0.0        0.0        0        0
35        0        0.000        0.0        0.0        0        0
36    64058   264846.110   162351.0   165652.8   162433   114186
37    64058   140794.147        0.0        0.0        0        0
38        0   124051.963        0.0        0.0        0        0
39    26899    41809.408    22467.1        0.0    67023        0
40        0        0.000        0.0        0.0        0        0
41  2765356  3262446.874  3094219.3  3767021.2  2461875  2212031
42        0        0.000        0.0        0.0        0        0
43        0        0.000        0.0        0.0        0        0
44     2342     3370.500     3809.8     5065.5    27305    24062
45        0        0.000        0.0        0.0        0        0
46        0        0.000        0.0        0.0        0        0
47        0        0.000        0.0        0.0        0        0
48  1842167   835697.628   946692.7  1455654.2  1160354   919077
49        0        0.000        0.0        0.0        0        0
50        0        0.000        0.0        0.0        0        0
51        0        0.000        0.0        0.0        0        0
52   523557   723581.112   654696.3   685871.7   690950   653104
53     3553     1268.088    99826.4   642544.4   307443    46907
54   454284    58778.649    95264.9    93298.9   116907   131075
55        0        0.000    67600.7        0.0       NA        0
56   676023           NA         NA         NA       NA       NA
57   184750    52069.779    29304.4    33939.3    45054    87992
58  1088094  1128910.773  1116738.6  1244908.3  1397723  1339868
59  1088094  1128910.773  1116738.6  1244908.3  1397723  1339868
60   473765   479083.311   520906.9   578817.4   603936   547273
61   614329   649827.462   595831.7   666090.9   793787   792595
62        0        0.000        0.0        0.0        0        0
63 11715022 13797541.530 13633674.3 16927307.9 18951535 17912098
64 10869010 12893359.671 12748549.3 15290128.3 16498346 15697864
65        0        0.000        0.0        0.0        0        0
66   846012   904181.860   885125.0  1637179.6  2453188  2214234
67   695596   725284.034   688103.0   387971.6  2900483  2772930
68        0        0.000        0.0        0.0        0        0
69        0        0.000        0.0        0.0        0        0
70        0        0.000        0.0        0.0        0        0
         2012       2011       2010
1          NA         NA         NA
2  43511962.9 48175350.9 45858730.0
3  14193612.3 18008020.7 17515468.2
4   4253349.4  4231650.6  6038907.5
5   2056037.9  3339133.8   579432.5
6         0.0        0.0        0.0
7         0.0        0.0        0.0
8         0.0        0.0        0.0
9         0.0        0.0        0.0
10        0.0        0.0        0.0
11  2096858.9  1829631.1  2527455.4
12  2096858.9  1829631.1  2527455.4
13        0.0        0.0        0.0
14  5054897.2  7378522.4  7135075.7
15        0.0        0.0        0.0
16        0.0        0.0        0.0
17        0.0        0.0        0.0
18        0.0        0.0        0.0
19   954842.8  1623254.9  1592940.7
20        0.0        0.0        0.0
21        0.0        0.0        0.0
22   954842.8  1623254.9  1592940.7
23   649258.2  1166291.6  1199209.5
24        0.0        0.0        0.0
25    16225.7    19817.0    82043.8
26    44704.3   104661.2   102059.5
27   177669.7   289510.9   256284.2
28    66984.9    42974.1    35387.6
29 29318350.6 30167330.2 28343261.8
30  3269136.1  2829536.5  2091928.8
31        0.0        0.0        0.0
32        0.0        0.0        0.0
33        0.0        0.0        0.0
34        0.0        0.0        0.0
35        0.0        0.0        0.0
36        0.0        0.0    46108.5
37        0.0        0.0    46108.5
38        0.0        0.0        0.0
39        0.0        0.0        0.0
40        0.0        0.0        0.0
41        0.0        0.0        0.0
42        0.0        0.0        0.0
43        0.0        0.0        0.0
44    16890.3     8328.2     8681.6
45        0.0        0.0        0.0
46        0.0        0.0        0.0
47        0.0        0.0        0.0
48  3252245.8  2821208.3  2083247.2
49        0.0        0.0        0.0
50        0.0        0.0        0.0
51  2024374.1  1162661.4   580067.6
52   575959.1   709322.5   646571.9
53   383121.4   635878.2   519873.4
54   177114.8   225688.6   254868.3
55        0.0        0.0        0.0
56         NA         NA         NA
57    91676.4    87657.7    81866.1
58   605839.0   624808.0  3002406.0
59   605839.0   624808.0  3002406.0
60   601939.7   620164.0  2442932.4
61     3899.3     4644.0   559473.6
62        0.0        0.0        0.0
63 22268718.6 23221480.7 20793544.7
64 19313757.3 15299690.9 14194061.0
65        0.0        0.0        0.0
66  2954961.3  7921789.8  6599483.8
67  3266333.3  3579162.6  2537248.4
68        0.0        0.0        0.0
69        0.0        0.0        0.0
70        0.0        0.0        0.0
m.Ativo.aj.med=lapply(1:(ncol(m.Ativo.aj.med)-1), function(i) (m.Ativo.aj.med[,i] + m.Ativo.aj.med[,i+1])/2)

m.Ativo.aj.med= matrix(unlist(m.Ativo.aj.med), byrow = FALSE, nrow = nrow(m.Ativo.aj))
m.Ativo.aj.med=as.data.frame(m.Ativo.aj.med)
row.names(m.Ativo.aj.med)=rownomes
row.names(m.Ativo.aj)=rownomes

colnames(m.Ativo.aj.med)=anos.med


rownomes=rownames(m.Passivo)
m.Passivo.aj = as.data.frame(sapply(m.Passivo.aj, as.numeric))
m.Passivo.aj.med=m.Passivo.aj

m.Passivo.aj.med[ ,anos.med]
        2018       2017       2016        2015       2014       2013
1         NA         NA         NA          NA         NA         NA
2   26193395 27497472.4 25691246.0 31247000.80 36610423.7 35494469.6
3    3105510  3024068.9  1599704.2  4895621.41  5517233.0  5278710.6
4     205583   202139.0   195424.5   319345.65   341912.8   289758.2
5          0        0.0        0.0        0.00        0.0        0.0
6          0        0.0        0.0        0.00        0.0        0.0
7    1133763  1046297.6   839284.4   942105.77  2039078.2  2797704.1
8          0        0.0        0.0        0.00        0.0        0.0
9          0        0.0        0.0        0.00        0.0        0.0
10    126212   103378.1    65432.0   105279.39   142663.7   156261.0
11    126212   103378.1    65432.0   105279.39   142663.7   156261.0
12      3299     1535.8     7474.8    98217.37    27743.7     4827.2
13    122913   101842.2    57957.2     7062.02   114920.0   151433.8
14         0        0.0        0.0        0.00        0.0        0.0
15         0        0.0        0.0        0.00        0.0        0.0
16         0        0.0        0.0        0.00        0.0        0.0
17    467036  1060285.2    67140.6  2194613.41  2080982.3  1536492.7
18    396799   993848.7    61636.1  2124453.56  2019876.1  1488526.7
19         0        0.0        0.0        0.00        0.0        0.0
20         0        0.0        0.0        0.00        0.0        0.0
21     70237    66436.4     5504.5    70159.85    61106.2    47965.9
22         0        0.0        0.0        0.00        0.0        0.0
23   1403076   850676.9   570278.7  1600469.93  1213490.3  1096395.8
24         0        0.0        0.0        0.00        0.0   161763.9
25         0        0.0        0.0        0.00        0.0        0.0
26         0        0.0        0.0        0.00        0.0        0.0
27         0        0.0        0.0        0.00        0.0        0.0
28   1403076   850676.9   570278.7  1600469.93  1213490.3   934631.8
29    202809    81016.2    21816.6      163.03    37739.4     1296.0
30         0        0.0        0.0        0.00        0.0        0.0
31         0        0.0        0.0        0.00        0.0        0.0
32      4180    21949.5     8457.5     9404.17     9222.3    29767.2
33         0        0.0    48169.9   229228.20   114723.6    58927.9
34     63484    87174.6    35505.9    46841.74   134405.2   205966.5
35         0        0.0        0.0        0.00        0.0   246739.6
36    166676   151533.3   102350.1   219351.01   166489.2   391934.6
37    965927   509003.3   353978.6  1095481.79   750910.6        0.0
38         0        0.0        0.0        0.00        0.0        0.0
39         0        0.0        0.0        0.00        0.0        0.0
40         0        0.0        0.0        0.00        0.0        0.0
41         0        0.0        0.0        0.00        0.0        0.0
42         0        0.0        0.0        0.00        0.0        0.0
43         0        0.0        0.0        0.00        0.0        0.0
44         0        0.0        0.0        0.00        0.0        0.0
45         0        0.0        0.0        0.00        0.0        0.0
46         0        0.0        0.0        0.00        0.0        0.0
47         0        0.0        0.0        0.00        0.0        0.0
48         0        0.0        0.0        0.00        0.0        0.0
49         0        0.0        0.0        0.00        0.0        0.0
50         0        0.0        0.0        0.00        0.0        0.0
51   7390494  8211074.4  9027213.7  9136782.23  8206271.8  8460480.8
52   5382754  6046766.9  6799141.7  6839535.82  6072957.9  6365592.9
53   4562971  5096414.4  5815272.2  5692366.12  4854847.9  5212885.5
54         0        0.0        0.0        0.00        0.0        0.0
55         0        0.0        0.0        0.00        0.0        0.0
56    819783   950352.5   983869.5  1147169.70  1218110.0  1152707.4
57         0        0.0        0.0        0.00        0.0        0.0
58    234550   247052.2   357612.9   543517.57   275579.4   129561.8
59    134254   153337.9   151984.6   187092.56        0.0        0.0
60         0        0.0        0.0        0.00        0.0        0.0
61         0        0.0        0.0        0.00        0.0        0.0
62         0   153337.9   151984.6   187092.56        0.0        0.0
63    100296    93714.2   205628.3   356425.01   275579.4   129561.8
64         0        0.0        0.0        0.00        0.0        0.0
65         0        0.0        0.0        0.00        0.0        0.0
66         0        0.0     8974.2    11001.19    12164.6    41679.8
67         0        0.0   101554.8   234036.48   222281.7    61116.9
68         0        0.0        0.0        0.00        0.0        0.0
69    100296    93714.2    95099.3   111387.34    41133.1    26765.1
70         0        0.0        0.0        0.00        0.0        0.0
71         0        0.0        0.0        0.00        0.0        0.0
72   1873486  2010969.6  2076087.4  2110153.85  2133313.9  2094887.9
73   1669779  1841391.8  1934244.1  1964225.62  2029449.7  2006420.3
74         0        0.0        0.0        0.00        0.0        0.0
75   1034228  1124918.0  1331474.9  1324205.96  1448958.8  1421150.3
76         0        0.0        0.0        0.00        0.0        0.0
77         0        0.0        0.0        0.00        0.0        0.0
78    635551   716473.8   602769.1   640019.66   580490.9   585270.0
79    203707   169577.8   141843.3   145928.23   103864.2    88467.6
80         0        0.0        0.0        0.00        0.0        0.0
81         0        0.0        0.0        0.00        0.0        0.0
82    203707   169577.8   141843.3   145928.23   103864.2    88467.6
83         0        0.0        0.0        0.00        0.0        0.0
84         0        0.0        0.0        0.00        0.0        0.0
85         0        0.0        0.0        0.00        0.0        0.0
86         0        0.0        0.0        0.00        0.0        0.0
87         0        0.0        0.0        0.00        0.0        0.0
88         0        0.0        0.0        0.00        0.0        0.0
89         0        0.0        0.0        0.00        0.0        0.0
90  15697391 16262329.1 15064328.1 17214597.16 22886918.9 21755278.2
91  13200295 14137780.0 13089676.5 13949536.50 14821542.0 14034586.5
92    309391   333887.3   306851.9   375651.26   388960.0   361646.5
93         0        0.0        0.0        0.00        0.0        0.0
94         0        0.0        0.0        0.00        0.0        0.0
95         0        0.0        0.0        0.00        0.0        0.0
96         0        0.0        0.0        0.00        0.0        0.0
97         0        0.0        0.0        0.00        0.0        0.0
98         0        0.0        0.0        0.00        0.0        0.0
99         0        0.0        0.0        0.00        0.0        0.0
100   766942   216567.7        0.0   711872.98  4673433.5  4272929.8
101    47984    12478.5        0.0   711872.98   861314.6   808099.9
102        0        0.0        0.0        0.00  3619804.8  3464829.8
103        0        0.0        0.0        0.00        0.0        0.0
104        0        0.0        0.0        0.00        0.0        0.0
105        0        0.0        0.0        0.00        0.0        0.0
106        0        0.0        0.0        0.00        0.0        0.0
107        0        0.0        0.0        0.00        0.0        0.0
108        0        0.0        0.0        0.00        0.0        0.0
109        0        0.0        0.0        0.00        0.0        0.0
110   718958   204089.3        0.0        0.00   192314.1        0.0
111        0        0.0        0.0        0.00        0.0        0.0
112   -10330    64846.0    25782.1   357921.00   512048.3   634929.3
113        0        0.0        0.0        0.00        0.0        0.0
114        0        0.0        0.0        0.00        0.0        0.0
115  1431093  1509248.2  1642017.6  1819615.43  2490935.2  2451186.2
        2012       2011     2010
1         NA         NA       NA
2   42302939 46505544.1 44846470
3    6552479  5325307.4  4457828
4          0        0.0        0
5          0        0.0        0
6          0        0.0        0
7    3053712  2132914.9  1876311
8          0        0.0        0
9          0        0.0        0
10    653394   912730.6   868511
11    653394   912730.6   868511
12    117153   288258.0   260146
13    159769   184069.4   190006
14    376473   440403.1   418360
15         0        0.0        0
16         0        0.0        0
17   2255971  1662018.3  1184213
18   1911420  1261769.9  1151561
19         0        0.0        0
20         0        0.0        0
21    344551   400248.3    32652
22         0        0.0        0
23   1261763  1260893.4  1164856
24    211604   135373.5   105783
25         0        0.0        0
26         0        0.0        0
27         0        0.0        0
28   1050159  1125519.9  1059073
29     35617   101665.4   232799
30         0        0.0        0
31         0        0.0        0
32     47383    89216.8    83837
33     56442    63575.9   106374
34    373479   296049.5   263256
35    238356   227812.2        0
36    298882   347200.1   372808
37         0        0.0        0
38         0        0.0        0
39         0        0.0        0
40         0        0.0        0
41         0        0.0        0
42         0        0.0        0
43         0        0.0        0
44         0        0.0        0
45         0        0.0        0
46         0        0.0        0
47         0        0.0        0
48         0        0.0        0
49         0        0.0        0
50         0        0.0        0
51  10994594 13447448.2 12669603
52   8648522 11118558.0 10056823
53   8648522 10753925.5  9328503
54         0        0.0        0
55         0        0.0        0
56         0   364632.5   728320
57         0        0.0        0
58    850713  1518232.0   877438
59         0     9845.1    61032
60         0        0.0        0
61         0        0.0        0
62         0        0.0        0
63    850713  1508386.9   816406
64         0        0.0        0
65         0        0.0        0
66     59184    56353.2   102748
67    432975   798180.5   636836
68    238356   455622.9        0
69    120198   198230.3    76822
70         0        0.0        0
71         0        0.0        0
72   2346072  2319045.2  2551748
73   2242167  2161144.7  2355232
74         0        0.0        0
75   1867831  1863232.7  1896458
76         0        0.0        0
77         0        0.0        0
78    374336   297912.0   458775
79    103905   157900.5   196515
80         0        0.0        0
81         0        0.0        0
82    103905   157900.5   196515
83         0        0.0        0
84         0        0.0        0
85         0        0.0        0
86         0        0.0        0
87         0        0.0        0
88         0        0.0        0
89         0        0.0        0
90  24755866 27732788.4 27719039
91  16247102 17721139.5 17698176
92    293764     3316.7        0
93         0        0.0        0
94         0        0.0        0
95         0        0.0        0
96         0        0.0        0
97         0        0.0        0
98         0        0.0        0
99         0        0.0        0
100  5176853  6549998.6  6288303
101   935495  1020368.6  1002072
102  4039691  4406197.3  4239222
103        0        0.0        0
104        0        0.0        0
105        0        0.0        0
106        0        0.0        0
107        0        0.0        0
108        0        0.0        0
109        0        0.0        0
110   201667  1123432.7  1047010
111        0        0.0        0
112   491239   934475.8  1406542
113        0        0.0        0
114        0        0.0        0
115  2546909  2523857.8  2326018
m.Passivo.aj.med=lapply(1:(ncol(m.Passivo.aj)-1), function(i) (m.Passivo.aj.med[,i] + m.Passivo.aj.med[,i+1])/2)
m.Passivo.aj.med= matrix(unlist(m.Passivo.aj.med), byrow = FALSE, nrow = nrow(m.Passivo.aj))
m.Passivo.aj.med=as.data.frame(m.Passivo.aj.med)
row.names(m.Passivo.aj.med)=rownomes
row.names(m.Passivo.aj)=rownomes

colnames(m.Passivo.aj.med)=anos.med

rownomes=rownames(m.PL)
m.PL.aj = as.data.frame(sapply(m.PL.aj, as.numeric))
m.PL.aj.med=m.PL.aj

m.PL.aj.med[ ,anos.med]
       2018     2017     2016     2015     2014     2013     2012
1  15697391 16262329 15064328 17214597 22886919 21755278 24755866
2  13200295 14137780 13089677 13949536 14821542 14034587 16247102
3    309391   333887   306852   375651   388960   361646   293764
4         0        0        0        0        0        0        0
5         0        0        0        0        0        0        0
6         0        0        0        0        0        0        0
7         0        0        0        0        0        0        0
8         0        0        0        0        0        0        0
9         0        0        0        0        0        0        0
10        0        0        0        0        0        0        0
11   766942   216568        0   711873  4673433  4272930  5176853
12    47984    12478        0   711873   861315   808100   935495
13        0        0        0        0  3619805  3464830  4039691
14        0        0        0        0        0        0        0
15        0        0        0        0        0        0        0
16        0        0        0        0        0        0        0
17        0        0        0        0        0        0        0
18        0        0        0        0        0        0        0
19        0        0        0        0        0        0        0
20        0        0        0        0        0        0        0
21   718958   204089        0        0   192314        0   201667
22        0        0        0        0        0        0        0
23   -10330    64846    25782   357921   512048   634929   491239
24        0        0        0        0        0        0        0
25        0        0        0        0        0        0        0
26  1431093  1509248  1642018  1819615  2490935  2451186  2546909
         2011     2010
1  27732788.4 27719039
2  17721139.5 17698176
3      3316.7        0
4         0.0        0
5         0.0        0
6         0.0        0
7         0.0        0
8         0.0        0
9         0.0        0
10        0.0        0
11  6549998.6  6288303
12  1020368.6  1002072
13  4406197.3  4239222
14        0.0        0
15        0.0        0
16        0.0        0
17        0.0        0
18        0.0        0
19        0.0        0
20        0.0        0
21  1123432.7  1047010
22        0.0        0
23   934475.8  1406542
24        0.0        0
25        0.0        0
26  2523857.8  2326018
m.PL.aj.med=lapply(1:(ncol(m.PL.aj.med)-1), function(i) (m.PL.aj.med[,i] + m.PL.aj.med[,i+1])/2)
m.PL.aj.med= matrix(unlist(m.PL.aj.med), byrow = FALSE, nrow = nrow(m.PL.aj))
m.PL.aj.med=as.data.frame(m.PL.aj.med)
row.names(m.PL.aj.med)=rownomes
row.names(m.PL.aj)=rownomes

colnames(m.PL.aj.med)=anos.med

rownomes=rownames(m.AC)
m.AC.aj = as.data.frame(sapply(m.AC.aj, as.numeric))
m.AC.aj.med=m.AC.aj

m.AC.aj.med[ ,anos.med]
      2018        2017      2016      2015    2014     2013     2012
1  8319920 7641548.840 6273686.2 7730695.4 9822229 10789140 14193612
2  1106790 1896319.094  713837.5  918800.3 2573717  3041621  4253349
3   586559  582329.639 1524699.0 1405499.0  905262   965243  2056038
4        0       0.000       0.0       0.0       0        0        0
5        0       0.000       0.0       0.0       0        0        0
6        0       0.000       0.0       0.0       0        0        0
7        0       0.000       0.0       0.0       0        0        0
8        0       0.000       0.0       0.0       0        0        0
9  1894291 1665965.184 1169330.2 1639984.4 1520817  1893862  2096859
10       0 1665965.184 1169330.2 1639984.4 1520817  1893862  2096859
11       0       0.000       0.0       0.0       0        0        0
12 3880635 2959759.486 2582481.9 3155485.0 4290014  4447659  5054897
13       0       0.000       0.0       0.0       0        0        0
14       0       0.000       0.0       0.0       0        0        0
15       0       0.000       0.0       0.0       0        0        0
16       0       0.000       0.0       0.0       0        0        0
17  856042  665614.297  376325.7  796268.2  768357   579296   954843
18       0       0.000       0.0       0.0       0        0        0
19       0       0.000       0.0       0.0       0        0        0
20  856042  665614.297  376325.7  796268.2  768357   579296   954843
21  617731  189410.958  124141.9  242189.2  437227   373701   649258
22  130197  198796.306  112458.6  190875.6       0        0        0
23   13562  148955.320    2442.4    2706.1   15421    14338    16226
24    4050    4639.659    7165.4   14325.0   21772    15641    44704
25     347  123799.202   85822.7  171016.7  214167   122899   177670
26   90155      12.852   44294.7  175155.7   79770    52716    66985
       2011     2010
1  18008021 17515468
2   4231651  6038908
3   3339134   579432
4         0        0
5         0        0
6         0        0
7         0        0
8         0        0
9   1829631  2527455
10  1829631  2527455
11        0        0
12  7378522  7135076
13        0        0
14        0        0
15        0        0
16        0        0
17  1623255  1592941
18        0        0
19        0        0
20  1623255  1592941
21  1166292  1199209
22        0        0
23    19817    82044
24   104661   102059
25   289511   256284
26    42974    35388
m.AC.aj.med=lapply(1:(ncol(m.AC.aj.med)-1), function(i) (m.AC.aj.med[,i] + m.AC.aj.med[,i+1])/2)
m.AC.aj.med= matrix(unlist(m.AC.aj.med), byrow = FALSE, nrow = nrow(m.AC.aj))
m.AC.aj.med=as.data.frame(m.AC.aj.med)
row.names(m.AC.aj.med)=rownomes
row.names(m.AC.aj)=rownomes

colnames(m.AC.aj.med)=anos.med

rownomes=rownames(m.ANC)
m.ANC.aj = as.data.frame(sapply(m.ANC.aj, as.numeric))
m.ANC.aj.med=m.ANC.aj

m.ANC.aj.med[,anos.med]
       2018       2017       2016       2015     2014     2013       2012
1  17987885 19841975.7 19616284.4 23919642.2 27016653 25206261 29318350.6
2   4700822  4408170.5  4229539.9  5393393.7  3878989  3269356  3269136.1
3         0        0.0        0.0        0.0        0        0        0.0
4         0        0.0        0.0        0.0        0        0        0.0
5         0        0.0        0.0        0.0        0        0        0.0
6         0        0.0        0.0        0.0        0        0        0.0
7         0        0.0        0.0        0.0        0        0        0.0
8     64058   264846.1   162351.0   165652.8   162433   114186        0.0
9     64058   140794.1        0.0        0.0        0        0        0.0
10        0   124052.0        0.0        0.0        0        0        0.0
11    26899    41809.4    22467.1        0.0    67023        0        0.0
12        0        0.0        0.0        0.0        0        0        0.0
13  2765356  3262446.9  3094219.3  3767021.2  2461875  2212031        0.0
14        0        0.0        0.0        0.0        0        0        0.0
15        0        0.0        0.0        0.0        0        0        0.0
16     2342     3370.5     3809.8     5065.5    27305    24062    16890.3
17        0        0.0        0.0        0.0        0        0        0.0
18        0        0.0        0.0        0.0        0        0        0.0
19        0        0.0        0.0        0.0        0        0        0.0
20  1842167   835697.6   946692.7  1455654.2  1160354   919077  3252245.8
21        0        0.0        0.0        0.0        0        0        0.0
22        0        0.0        0.0        0.0        0        0        0.0
23        0        0.0        0.0        0.0        0        0  2024374.1
24   523557   723581.1   654696.3   685871.7   690950   653104   575959.1
25     3553     1268.1    99826.4   642544.4   307443    46907   383121.4
26   454284    58778.6    95264.9    93298.9   116907   131075   177114.8
27        0        0.0    67600.7        0.0       NA        0        0.0
28   676023         NA         NA         NA       NA       NA         NA
29   184750    52069.8    29304.4    33939.3    45054    87992    91676.4
30  1088094  1128910.8  1116738.6  1244908.3  1397723  1339868   605839.0
31  1088094  1128910.8  1116738.6  1244908.3  1397723  1339868   605839.0
32   473765   479083.3   520906.9   578817.4   603936   547273   601939.7
33   614329   649827.5   595831.7   666090.9   793787   792595     3899.3
34        0        0.0        0.0        0.0        0        0        0.0
35 11715022 13797541.5 13633674.3 16927307.9 18951535 17912098 22268718.6
36 10869010 12893359.7 12748549.3 15290128.3 16498346 15697864 19313757.3
37        0        0.0        0.0        0.0        0        0        0.0
38   846012   904181.9   885125.0  1637179.6  2453188  2214234  2954961.3
39   695596   725284.0   688103.0   387971.6  2900483  2772930  3266333.3
40        0        0.0        0.0        0.0        0        0        0.0
41        0        0.0        0.0        0.0        0        0        0.0
42        0        0.0        0.0        0.0        0        0        0.0
         2011       2010
1  30167330.2 28343261.8
2   2829536.5  2091928.8
3         0.0        0.0
4         0.0        0.0
5         0.0        0.0
6         0.0        0.0
7         0.0        0.0
8         0.0    46108.5
9         0.0    46108.5
10        0.0        0.0
11        0.0        0.0
12        0.0        0.0
13        0.0        0.0
14        0.0        0.0
15        0.0        0.0
16     8328.2     8681.6
17        0.0        0.0
18        0.0        0.0
19        0.0        0.0
20  2821208.3  2083247.2
21        0.0        0.0
22        0.0        0.0
23  1162661.4   580067.6
24   709322.5   646571.9
25   635878.2   519873.4
26   225688.6   254868.3
27        0.0        0.0
28         NA         NA
29    87657.7    81866.1
30   624808.0  3002406.0
31   624808.0  3002406.0
32   620164.0  2442932.4
33     4644.0   559473.6
34        0.0        0.0
35 23221480.7 20793544.7
36 15299690.9 14194061.0
37        0.0        0.0
38  7921789.8  6599483.8
39  3579162.6  2537248.4
40        0.0        0.0
41        0.0        0.0
42        0.0        0.0
m.ANC.aj.med=lapply(1:(ncol(m.ANC.aj.med)-1), function(i) (m.ANC.aj.med[,i] + m.ANC.aj.med[,i+1])/2)
m.ANC.aj.med= matrix(unlist(m.ANC.aj.med), byrow = FALSE, nrow = nrow(m.ANC.aj))
m.ANC.aj.med=as.data.frame(m.ANC.aj.med)
row.names(m.ANC.aj.med)=rownomes
row.names(m.ANC.aj)=rownomes

colnames(m.ANC.aj.med)=anos.med


rownomes=rownames(m.PC)
m.PC.aj = as.data.frame(sapply(m.PC.aj, as.numeric))
m.PC.aj.med=m.PC.aj

m.PC.aj.med[ ,anos.med]
      2018      2017      2016       2015      2014      2013    2012
1  3105510 3024068.9 1599704.2 4895621.41 5517233.0 5278710.6 6552479
2   205583  202139.0  195424.5  319345.65  341912.8  289758.2       0
3        0       0.0       0.0       0.00       0.0       0.0       0
4        0       0.0       0.0       0.00       0.0       0.0       0
5  1133763 1046297.6  839284.4  942105.77 2039078.2 2797704.1 3053712
6        0       0.0       0.0       0.00       0.0       0.0       0
7        0       0.0       0.0       0.00       0.0       0.0       0
8   126212  103378.1   65432.0  105279.39  142663.7  156261.0  653394
9   126212  103378.1   65432.0  105279.39  142663.7  156261.0  653394
10    3299    1535.8    7474.8   98217.37   27743.7    4827.2  117153
11  122913  101842.2   57957.2    7062.02  114920.0  151433.8  159769
12       0       0.0       0.0       0.00       0.0       0.0  376473
13       0       0.0       0.0       0.00       0.0       0.0       0
14       0       0.0       0.0       0.00       0.0       0.0       0
15  467036 1060285.2   67140.6 2194613.41 2080982.3 1536492.7 2255971
16  396799  993848.7   61636.1 2124453.56 2019876.1 1488526.7 1911420
17       0       0.0       0.0       0.00       0.0       0.0       0
18       0       0.0       0.0       0.00       0.0       0.0       0
19   70237   66436.4    5504.5   70159.85   61106.2   47965.9  344551
20       0       0.0       0.0       0.00       0.0       0.0       0
21 1403076  850676.9  570278.7 1600469.93 1213490.3 1096395.8 1261763
22       0       0.0       0.0       0.00       0.0  161763.9  211604
23       0       0.0       0.0       0.00       0.0       0.0       0
24       0       0.0       0.0       0.00       0.0       0.0       0
25       0       0.0       0.0       0.00       0.0       0.0       0
26 1403076  850676.9  570278.7 1600469.93 1213490.3  934631.8 1050159
27  202809   81016.2   21816.6     163.03   37739.4    1296.0   35617
28       0       0.0       0.0       0.00       0.0       0.0       0
29       0       0.0       0.0       0.00       0.0       0.0       0
30    4180   21949.5    8457.5    9404.17    9222.3   29767.2   47383
31       0       0.0   48169.9  229228.20  114723.6   58927.9   56442
32   63484   87174.6   35505.9   46841.74  134405.2  205966.5  373479
33       0       0.0       0.0       0.00       0.0  246739.6  238356
34  166676  151533.3  102350.1  219351.01  166489.2  391934.6  298882
35  965927  509003.3  353978.6 1095481.79  750910.6       0.0       0
36       0       0.0       0.0       0.00       0.0       0.0       0
37       0       0.0       0.0       0.00       0.0       0.0       0
38       0       0.0       0.0       0.00       0.0       0.0       0
39       0       0.0       0.0       0.00       0.0       0.0       0
40       0       0.0       0.0       0.00       0.0       0.0       0
41       0       0.0       0.0       0.00       0.0       0.0       0
42       0       0.0       0.0       0.00       0.0       0.0       0
43       0       0.0       0.0       0.00       0.0       0.0       0
44       0       0.0       0.0       0.00       0.0       0.0       0
45       0       0.0       0.0       0.00       0.0       0.0       0
46       0       0.0       0.0       0.00       0.0       0.0       0
47       0       0.0       0.0       0.00       0.0       0.0       0
48       0       0.0       0.0       0.00       0.0       0.0       0
      2011    2010
1  5325307 4457828
2        0       0
3        0       0
4        0       0
5  2132915 1876311
6        0       0
7        0       0
8   912731  868511
9   912731  868511
10  288258  260146
11  184069  190006
12  440403  418360
13       0       0
14       0       0
15 1662018 1184213
16 1261770 1151561
17       0       0
18       0       0
19  400248   32652
20       0       0
21 1260893 1164856
22  135373  105783
23       0       0
24       0       0
25       0       0
26 1125520 1059073
27  101665  232799
28       0       0
29       0       0
30   89217   83837
31   63576  106374
32  296050  263256
33  227812       0
34  347200  372808
35       0       0
36       0       0
37       0       0
38       0       0
39       0       0
40       0       0
41       0       0
42       0       0
43       0       0
44       0       0
45       0       0
46       0       0
47       0       0
48       0       0
m.PC.aj.med=lapply(1:(ncol(m.PC.aj.med)-1), function(i) (m.PC.aj.med[,i] + m.PC.aj.med[,i+1])/2)
m.PC.aj.med= matrix(unlist(m.PC.aj.med), byrow = FALSE, nrow = nrow(m.PC.aj))
m.PC.aj.med=as.data.frame(m.PC.aj.med)
row.names(m.PC.aj.med)=rownomes
row.names(m.PC.aj)=rownomes

colnames(m.PC.aj.med)=anos.med


rownomes=rownames(m.PNC)
m.PNC.aj = as.data.frame(sapply(m.PNC.aj, as.numeric))
m.PNC.aj.med=m.PNC.aj

m.PNC.aj.med[ ,anos.med]
      2018    2017      2016    2015    2014    2013     2012       2011
1  7390494 8211074 9027213.7 9136782 8206272 8460481 10994594 13447448.2
2  5382754 6046767 6799141.7 6839536 6072958 6365593  8648522 11118558.0
3  4562971 5096414 5815272.2 5692366 4854848 5212886  8648522 10753925.5
4        0       0       0.0       0       0       0        0        0.0
5        0       0       0.0       0       0       0        0        0.0
6   819783  950352  983869.5 1147170 1218110 1152707        0   364632.5
7        0       0       0.0       0       0       0        0        0.0
8   234550  247052  357612.9  543518  275579  129562   850713  1518232.0
9   134254  153338  151984.6  187093       0       0        0     9845.1
10       0       0       0.0       0       0       0        0        0.0
11       0       0       0.0       0       0       0        0        0.0
12       0  153338  151984.6  187093       0       0        0        0.0
13  100296   93714  205628.3  356425  275579  129562   850713  1508386.9
14       0       0       0.0       0       0       0        0        0.0
15       0       0       0.0       0       0       0        0        0.0
16       0       0    8974.2   11001   12165   41680    59184    56353.2
17       0       0  101554.8  234036  222282   61117   432975   798180.5
18       0       0       0.0       0       0       0   238356   455622.9
19  100296   93714   95099.3  111387   41133   26765   120198   198230.3
20       0       0       0.0       0       0       0        0        0.0
21       0       0       0.0       0       0       0        0        0.0
22 1873486 2010970 2076087.4 2110154 2133314 2094888  2346072  2319045.2
23 1669779 1841392 1934244.1 1964226 2029450 2006420  2242167  2161144.7
24       0       0       0.0       0       0       0        0        0.0
25 1034228 1124918 1331474.9 1324206 1448959 1421150  1867831  1863232.7
26       0       0       0.0       0       0       0        0        0.0
27       0       0       0.0       0       0       0        0        0.0
28  635551  716474  602769.1  640020  580491  585270   374336   297912.0
29  203707  169578  141843.3  145928  103864   88468   103905   157900.5
30       0       0       0.0       0       0       0        0        0.0
31       0       0       0.0       0       0       0        0        0.0
32  203707  169578  141843.3  145928  103864   88468   103905   157900.5
33       0       0       0.0       0       0       0        0        0.0
34       0       0       0.0       0       0       0        0        0.0
35       0       0       0.0       0       0       0        0        0.0
36       0       0       0.0       0       0       0        0        0.0
37       0       0       0.0       0       0       0        0        0.0
38       0       0       0.0       0       0       0        0        0.0
39       0       0       0.0       0       0       0        0        0.0
       2010
1  12669603
2  10056823
3   9328503
4         0
5         0
6    728320
7         0
8    877438
9     61032
10        0
11        0
12        0
13   816406
14        0
15        0
16   102748
17   636836
18        0
19    76822
20        0
21        0
22  2551748
23  2355232
24        0
25  1896458
26        0
27        0
28   458775
29   196515
30        0
31        0
32   196515
33        0
34        0
35        0
36        0
37        0
38        0
39        0
m.PNC.aj.med=lapply(1:(ncol(m.PNC.aj.med)-1), function(i) (m.PNC.aj.med[,i] + m.PNC.aj.med[,i+1])/2)
m.PNC.aj.med= matrix(unlist(m.PNC.aj.med), byrow = FALSE, nrow = nrow(m.PNC.aj))
m.PNC.aj.med=as.data.frame(m.PNC.aj.med)
row.names(m.PNC.aj.med)=rownomes
row.names(m.PNC.aj)=rownomes

colnames(m.PNC.aj.med)=anos.med


rownomes=rownames(m.PERM)
m.PERM.aj = as.data.frame(sapply(m.PERM.aj, as.numeric))
m.PERM.aj.med=m.PERM.aj

m.PERM.aj.med=m.PERM.aj.med[ ,anos_uso]
m.PERM.aj.med=lapply(1:(ncol(m.PERM.aj.med)-1), function(i) (m.PERM.aj.med[,i] + m.PERM.aj.med[,i+1])/2)
m.PERM.aj.med=matrix(unlist(m.PERM.aj.med), byrow = FALSE, nrow = nrow(m.PERM.aj))
m.PERM.aj.med=as.data.frame(m.PERM.aj.med)
row.names(m.PERM.aj.med)=rownomes
row.names(m.PERM.aj)= rownomes

colnames(m.PERM.aj.med)= anos.med


rownomes=rownames(m.RLP)
m.RLP.aj = as.data.frame(sapply(m.RLP.aj, as.numeric))
m.RLP.aj.med=m.RLP.aj

m.RLP.aj.med[ ,anos.med]
       2018       2017       2016       2015     2014     2013     2012
1  18199534 20059906.9 19668055.8 23953581.5 27128730 25294252 29410027
2   4700822  4408170.5  4229539.9  5393393.7  3878989  3269356  3269136
3         0        0.0        0.0        0.0        0        0        0
4         0        0.0        0.0        0.0        0        0        0
5         0        0.0        0.0        0.0        0        0        0
6         0        0.0        0.0        0.0        0        0        0
7         0        0.0        0.0        0.0        0        0        0
8     64058   264846.1   162351.0   165652.8   162433   114186        0
9     64058   140794.1        0.0        0.0        0        0        0
10        0   124052.0        0.0        0.0        0        0        0
11    26899    41809.4    22467.1        0.0    67023        0        0
12        0        0.0        0.0        0.0        0        0        0
13  2765356  3262446.9  3094219.3  3767021.2  2461875  2212031        0
14        0        0.0        0.0        0.0        0        0        0
15        0        0.0        0.0        0.0        0        0        0
16     2342     3370.5     3809.8     5065.5    27305    24062    16890
17        0        0.0        0.0        0.0        0        0        0
18        0        0.0        0.0        0.0        0        0        0
19        0        0.0        0.0        0.0        0        0        0
20  1842167   835697.6   946692.7  1455654.2  1160354   919077  3252246
21        0        0.0        0.0        0.0        0        0        0
22        0        0.0        0.0        0.0        0        0        0
23        0        0.0        0.0        0.0        0        0  2024374
24   523557   723581.1   654696.3   685871.7   690950   653104   575959
25     3553     1268.1    99826.4   642544.4   307443    46907   383121
26   454284    58778.6    95264.9    93298.9   116907   131075   177115
27        0        0.0    67600.7        0.0       NA        0        0
28   676023         NA         NA         NA       NA       NA       NA
29   184750    52069.8    29304.4    33939.3    45054    87992    91676
         2011       2010
1  30254987.9 28425127.9
2   2829536.5  2091928.8
3         0.0        0.0
4         0.0        0.0
5         0.0        0.0
6         0.0        0.0
7         0.0        0.0
8         0.0    46108.5
9         0.0    46108.5
10        0.0        0.0
11        0.0        0.0
12        0.0        0.0
13        0.0        0.0
14        0.0        0.0
15        0.0        0.0
16     8328.2     8681.6
17        0.0        0.0
18        0.0        0.0
19        0.0        0.0
20  2821208.3  2083247.2
21        0.0        0.0
22        0.0        0.0
23  1162661.4   580067.6
24   709322.5   646571.9
25   635878.2   519873.4
26   225688.6   254868.3
27        0.0        0.0
28         NA         NA
29    87657.7    81866.1
m.RLP.aj.med=lapply(1:(ncol(m.RLP.aj.med)-1), function(i) (m.RLP.aj.med[,i] + m.RLP.aj.med[,i+1])/2)
m.RLP.aj.med=matrix(unlist(m.RLP.aj.med), byrow = FALSE, nrow = nrow(m.RLP.aj))
m.RLP.aj.med=as.data.frame(m.RLP.aj.med)
row.names(m.RLP.aj.med)=rownomes
row.names(m.RLP.aj)=rownomes

colnames(m.RLP.aj.med)=anos.med

Análise Fundamentalista (VIII)

Comparação: Valor original, Corrigido e Médio

library(ggrepel)

# Visualizar dados Ativo original, corrigido e medio

g1.str="Ativo Total - AT"
g2.str= "Ativo Total - AT"
g3.str= "Ativo Total - AT"

Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
g1.dt = as.data.frame( t(m.Ativo[g1.str,1:9]) )
g2.dt = as.data.frame( t(m.Ativo.aj.cm[g2.str,1:9]) )
g3.dt = as.data.frame( t(m.Ativo.aj.med[g3.str,1:9]) )

g1.class=unlist(strsplit(g1.str," - ",fixed=TRUE))
g2.class=unlist(strsplit(g2.str," - ",fixed=TRUE))
g3.class=unlist(strsplit(g3.str," - ",fixed=TRUE))

g1.class[1]=paste(g1.class[1]," NOM", sep="")
g2.class[1]=paste(g2.class[1]," COR", sep="")
g3.class[1]=paste(g3.class[1]," MED", sep="")


g1.conta=c(rep(g1.class[1],9))
g2.conta=c(rep(g2.class[1],9))
g3.conta=c(rep(g3.class[1],9))

g1.dt["Contas"]=g1.conta
g2.dt["Contas"]=g2.conta
g3.dt["Contas"]=g3.conta

names(g1.dt)[1]="Valor"
names(g2.dt)[1]="Valor"
names(g3.dt)[1]="Valor"

Anos = paste(Anos,"0101", sep="")
g1.dt["Anos"]=Anos

g2.dt["Anos"]=Anos

g3.dt["Anos"]=Anos



g.dt=(rbind(g1.dt,g2.dt,g3.dt))

rownames(g.dt)=c(1:length(row.names(g.dt)))

g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")

g1.dt$Anos = as.Date(g1.dt$Anos,"%Y%m%d")
g2.dt$Anos = as.Date(g2.dt$Anos,"%Y%m%d")
g3.dt$Anos = as.Date(g3.dt$Anos,"%Y%m%d")



g.dt["Anos"]=Anos
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g.dt$Contas = as.factor(g.dt$Contas)

g0 = ggplot(data=g.dt, aes(x=Anos ,y = Valor, group = Contas, colour= Contas ))+
  geom_line(col="gray70",size= 0.8, linetype = 3 )+
  labs( x="Ano", y="Ativo Total (Bilhões R$)") +
  ggtitle("Comparativo de Ativos Ajustados")+
  scale_y_continuous(labels = function(z) paste0(z/1000000, " Bi R$"), breaks=seq(20000000,50000000,by= 5000000), limits=c(20000000,50000000))+
  scale_x_date(date_labels = "%Y", date_breaks = "1 year") +
  geom_label_repel(
    aes(x=Anos ,y = Valor, label = paste0(f.dec(Valor/1000000,3), " Bi")),
    box.padding = 0.25, point.padding = 0.25,
    size = 3.5, nudge_y = 0.20,
    segment.color = "grey70") + geom_point(aes(shape = Contas),size =4.5) +
  scale_shape_manual(values=c(15, 16, 17)) + scale_size_manual(values=c(4, 4, 6)) + theme_bw()+
  theme(panel.border = element_rect(fill=NA,color="black", size=.5, linetype="solid"),
        plot.title = element_text(color="black", size=18, face="bold.italic"),
        axis.title.x = element_text(color="black", size=16, face="bold"),
        axis.title.y = element_text(color="black", size=16, face="bold"),
        axis.text.x = element_text(face="plain", color="black", size=14, angle=0),
        axis.text.y = element_text(face="plain", color="black", size=14, angle=0))
# guides(group=g.dt, col = guide_legend(nrow=1))
g0= g0 +
        # scale_colour_grey(start = 0.3, end = 0.4) +
        theme(legend.position = c(0.80, 0.75),
              legend.background = element_rect(fill="white", size=1, linetype="solid"))
print(g0)

#saveplot(g0,"g0.png")

Análise Fundamentalista (IX)

Visualizar Contas do DRE

f.dec = function(x, k) trimws(format(round(x, k), nsmall=k))
f.perc= function(x) paste0((x*100), "%")

g1.str="Receita de Venda de Bens e/ou Servicos - DRE"
g2.str= "Resultado Antes do Resultado Financeiro e dos Tributos - DRE"
g3.str= "Lucro/Prejuizo Consolidado do Periodo - DRE"

Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
g1.dt = as.data.frame( t(m.DRE.aj.cm[g1.str,1:9]) )
g2.dt = as.data.frame( t(m.DRE.aj.cm[g2.str,1:9]) )
g3.dt = as.data.frame( t(m.DRE.aj.cm[g3.str,1:9]) )

g1.class=unlist(strsplit(g1.str," - ",fixed=TRUE))
g2.class=unlist(strsplit(g2.str," - ",fixed=TRUE))
g3.class=unlist(strsplit(g3.str," - ",fixed=TRUE))


g1.conta=c(rep(g1.class[1],9))
g2.conta=c(rep(g2.class[1],9))
g3.conta=c(rep(g3.class[1],9))

g1.dt["Contas"]=g1.conta
g2.dt["Contas"]=g2.conta
g3.dt["Contas"]=g3.conta

names(g1.dt)[1]="Valor"
names(g2.dt)[1]="Valor"
names(g3.dt)[1]="Valor"

Anos = paste(Anos,"0101", sep="")
g1.dt["Anos"]=Anos

g2.dt["Anos"]=Anos

g3.dt["Anos"]=Anos



g.dt=(rbind(g1.dt,g2.dt,g3.dt))

rownames(g.dt)=c(1:length(row.names(g.dt)))

g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")

g1.dt$Anos = as.Date(g1.dt$Anos,"%Y%m%d")
g2.dt$Anos = as.Date(g2.dt$Anos,"%Y%m%d")
g3.dt$Anos = as.Date(g3.dt$Anos,"%Y%m%d")



g.dt["Anos"]=Anos
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g.dt$Contas = as.factor(g.dt$Contas)

g01 = ggplot(data=g.dt, aes(x=Anos ,y = Valor, group = Contas, colour= Contas ))+
  geom_line(col="gray70",size= 0.8, linetype = 3 )+
  labs( x="Ano", y="DRE (Bilhões R$)") +
  ggtitle("Comparativo de Contas - DRE")+
  scale_y_continuous(labels = function(z) paste0(z/1000000, " Bi R$"),
                     breaks=seq(-5000000,20000000,by= 5000000), limits=c(-5000000,20000000))+
  scale_x_date(date_labels = "%Y", date_breaks = "1 year") +
  geom_label_repel(
    aes(x=Anos ,y = Valor, label = paste0(f.dec(Valor/1000000,3), " Bi")),
    box.padding = 0.3, point.padding = 0.3,
    size = 3, nudge_y = 0.25,
    segment.color = "grey70") + geom_point(aes(shape = Contas),size = 4 ) +
  scale_shape_manual(values=c(15, 16, 17)) + scale_size_manual(values=c(4, 4, 6)) + theme_bw()+
  theme(panel.border = element_rect(fill=NA,color="black", size=.5, linetype="solid"),
        plot.title = element_text(color="black", size=18, face="bold.italic"),
        axis.title.x = element_text(color="black", size=16, face="bold"),
        axis.title.y = element_text(color="black", size=16, face="bold"),
        axis.text.x = element_text(face="plain", color="black", size=14, angle=0),
        axis.text.y = element_text(face="plain", color="black", size=14, angle=0))
# guides(group=g.dt, col = guide_legend(nrow=1))
g01=g01 +
        # scale_colour_grey(start = 0.3, end = 0.4) +
        theme(legend.position = c(0.28, 0.55), legend.title = element_text(size = 6.5),
      legend.text = element_text(size = 6.5), legend.key.size = unit(0.5, "cm"),
              legend.background = element_rect(fill="white", size=0.8, linetype="solid"))

print(g01)

#saveplot(g01,"g01.png")

Análise Fundamentalista (X)

Correção Monetária e IGP-DI

rm(g.dt)
rm(g1.dt)
rm(g2.dt)

f.dec = function(x, k) trimws(format(round(x, k), nsmall=k))
f.perc= function(x) paste0((x*100), "%")

Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
g1.str="Fator Correcao - MERC"
g2.str= "IGP-DI - MERC"

g1.dt = as.data.frame(t(v.CM.aj[1:9]) )
g2.dt = as.data.frame(t(v.IGPDI.aj[1:9]) )


g1.class=unlist(strsplit(g1.str," - ",fixed=TRUE))
g2.class=unlist(strsplit(g2.str," - ",fixed=TRUE))


g1.conta=c(rep(g1.class[1],9))
g2.conta=c(rep(g2.class[1],9))


g1.dt["Indice"]=g1.conta
g2.dt["Indice"]=g2.conta


names(g1.dt)[1]="Valor"
names(g2.dt)[1]="Valor"

Anos = paste(Anos,"0101", sep="")

g1.dt["Anos"] = as.Date(Anos,"%Y%m%d")
g2.dt["Anos"] = as.Date(Anos,"%Y%m%d")

g.dt=(rbind(g1.dt,g2.dt))

rownames(g.dt)=c(1:length(row.names(g.dt)))

g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")


g.dt["Anos"]=Anos
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g.dt$Indice = as.factor(g.dt$Indice)

g02 = ggplot(data=g.dt, aes(x=Anos ,y = Valor, group = Indice, colour= Indice ))+
  geom_line(col="gray70",size= 0.8, linetype = 3 )+
  scale_color_manual(breaks = c("Fator Correcao", "IGP-DI"),
                     values=c("tomato", "cornflowerblue"))+
  labs( x="Ano", y="IGP-DI e CM (%)") +
  ggtitle("IGP-DI e CM")+
  scale_y_continuous(labels = function(z) paste0(z*100, "%"), breaks=seq(0,1.6,by= 0.2), limits=c(-0.1,1.6))+
  scale_x_date(date_labels = "%Y", date_breaks = "1 year") +
  geom_label_repel(
    aes(x=Anos ,y = Valor, label = paste0(f.dec(Valor*100,2), "%")),
    box.padding = 0.15, point.padding = 0.15,
    size = 3.5, nudge_y = 0.10,
    segment.color = "grey70") + geom_point(aes(shape = Indice),size =4.5) +
  scale_shape_manual(values=c(15, 16)) + scale_size_manual(values=c(4.5, 4.5)) + theme_bw()+
  theme(panel.border = element_rect(fill=NA,color="black", size=.5, linetype="solid"),
        plot.title = element_text(color="black", size=18, face="bold.italic"),
        axis.title.x = element_text(color="black", size=16, face="bold"),
        axis.title.y = element_text(color="black", size=16, face="bold"),
        axis.text.x = element_text(face="plain", color="black", size=14, angle=0),
        axis.text.y = element_text(face="plain", color="black", size=14, angle=0))
# guides(group=g.dt, col = guide_legend(nrow=1))
g02 =g02 +
        # scale_colour_grey(start = 0.3, end = 0.4) +
        theme(legend.position = c(0.15, 0.50),
              legend.background = element_rect(fill="white", size=1, linetype="solid"))

print(g02)

Análise de Tendências

Análise Vertical

#
#Fazer analise vertical
#
Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")

# Ativo
rownomes=rownames(m.Ativo)

m.Ativo.aj.av= m.Ativo.aj.med
v.AT.aj=m.Ativo.aj.med["Ativo Total - AT",] # linha do Ativo Total ajustado
rownomes=rownames(m.Ativo)
row.names(m.Ativo.aj.med)=rownomes
m.Ativo.aj.av= m.Ativo.aj.med
m.Ativo.aj.av=as.data.frame(sweep(m.Ativo.aj.av, 2, unlist(v.AT.aj), `/`))
colnames(m.Ativo.aj.av)=Anos
row.names(m.Ativo.aj.av)=rownomes
colnames(v.AT.aj)=Anos
# Passivo

rownomes=rownames(m.Passivo)
m.Passivo.aj.av= m.Passivo.aj.med
v.PT.aj=m.Passivo.aj.med["Passivo Total - PT",] # linha do Passivo Total ajustado
m.Passivo.aj.av=as.data.frame(sweep(m.Passivo.aj.av, 2, unlist(v.PT.aj), `/`))
colnames(m.Passivo.aj.av)=Anos
row.names(m.Passivo.aj.av)=rownomes
colnames(v.PT.aj)=Anos
# DRE
m.DRE.aj.av= as.data.frame(m.DRE.aj.cm[,1:9])
colnames(m.Ativo.aj.av)=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
rownomes=rownames(m.DRE.aj.cm)
m.DRE.aj.av= m.DRE.aj.cm
v.DRE.aj=m.DRE.aj.cm["Receita de Venda de Bens e/ou Servicos - DRE",] # linha da Receita Total ajustado
m.DRE.aj.av=as.data.frame(sweep(m.DRE.aj.av, 2, unlist(v.DRE.aj), `/`))
colnames(m.DRE.aj.av)=Anos
row.names(m.DRE.aj.av)=rownomes
colnames(v.DRE.aj)=Anos

Análise de Tendências (I)

Visualizar Análise Vertical: Passivos e Ativos

# Visualizar dados Passivos AV

Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")

f.dec = function(x, k) trimws(format(round(x, k), nsmall=k))
f.perc= function(x) paste0((x*100), "%")

g1.str="Passivo Circulante - PC"
g2.str= "Passivo Nao Circulante - PNC"
g3.str= "Patrimonio Liquido Consolidado - PL"


g1.dt =as.data.frame(t(subset(m.Passivo.aj.av[g1.str,],select=Anos)))
g2.dt =as.data.frame(t(subset(m.Passivo.aj.av[g2.str,],select=Anos)))
g3.dt =as.data.frame(t(subset(m.Passivo.aj.av[g3.str,],select=Anos)))

g1.class=unlist(strsplit(g1.str," - ",fixed=TRUE))
g2.class=unlist(strsplit(g2.str," - ",fixed=TRUE))
g3.class=unlist(strsplit(g3.str," - ",fixed=TRUE))

g1.conta=c(rep(g1.class[1],9))
g2.conta=c(rep(g2.class[1],9))
g3.conta=c(rep(g3.class[1],9))

g1.dt["Contas"]=g1.conta
g2.dt["Contas"]=g2.conta
g3.dt["Contas"]=g3.conta

names(g1.dt)[1]="Valor"
names(g2.dt)[1]="Valor"
names(g3.dt)[1]="Valor"

Anos = paste(Anos,"0101", sep="")
g1.dt["Anos"]=Anos

g2.dt["Anos"]=Anos

g3.dt["Anos"]=Anos



g.dt=(rbind(g1.dt,g2.dt,g3.dt))

rownames(g.dt)=c(1:length(row.names(g.dt)))

g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")

g1.dt$Anos = as.Date(g1.dt$Anos,"%Y%m%d")
g2.dt$Anos = as.Date(g2.dt$Anos,"%Y%m%d")
g3.dt$Anos = as.Date(g3.dt$Anos,"%Y%m%d")



g.dt["Anos"]=Anos
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g.dt$Contas = as.factor(g.dt$Contas)

g03 = ggplot(data=g.dt, aes(x=Anos ,y = Valor, group = Contas, colour= Contas ))+
  geom_line(col="gray70",size= 0.8, linetype = 3 )+
  labs( x="Ano", y="Passivos & PL %") +
  ggtitle("An. Vertical (% do Passivo Total)")+
  scale_y_continuous(labels = function(z) paste0(z*100, "%"), breaks=seq(0,1,by=0.20), limits=c(0,1))+
  scale_x_date(date_labels = "%Y", date_breaks = "1 year") +
  geom_label_repel(
    aes(x=Anos ,y = Valor, label = paste0(f.dec(Valor*100,2), "%")),
    box.padding = 0.0, point.padding = 0.0,
    size = 3 , nudge_y = 0.05,
    segment.color = "grey70") + geom_point(aes(shape = Contas),size = 3) +
  scale_shape_manual(values=c(15, 16, 17)) + scale_size_manual(values=c(4, 4, 6)) + theme_bw()+
  theme(panel.border = element_rect(fill=NA,color="black", size=.5, linetype="solid"),
        plot.title = element_text(color="black", size=18, face="bold.italic"),
        axis.title.x = element_text(color="black", size=16, face="bold"),
        axis.title.y = element_text(color="black", size=16, face="bold"),
        axis.text.x = element_text(face="plain", color="black", size=14, angle=0),
        axis.text.y = element_text(face="plain", color="black", size=14, angle=0))
# guides(group=g.dt, col = guide_legend(nrow=1))
g03 = g03 +
        #   scale_colour_grey(start = 0.3, end = 0.4) +
        theme(legend.position = c(0.20, 0.85), legend.title = element_text(size = 5.5),
      legend.text = element_text(size = 5.5), legend.key.size = unit(0.5, "cm"),
              legend.background = element_rect(fill="white", size=1, linetype="solid"))

print(g03)

#Visualizar dados do Ativo: AV

rm(g1.dt)
rm(g2.dt)
rm(g3.dt)
rm(g4.dt)
rm(g5.dt)



g1.str="Caixa e Equivalentes de Caixa - AC"
g2.str= "Ativo Circulante - AC"
g3.str= "Investimentos - ANC"
g4.str="Imobilizado - ANC"
g5.str= "Ativo Nao Circulante - ANC"


Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
g1.dt =as.data.frame(t(subset(m.Ativo.aj.av[g1.str,],select=Anos)))
g2.dt =as.data.frame(t(subset(m.Ativo.aj.av[g2.str,],select=Anos)))
g3.dt =as.data.frame(t(subset(m.Ativo.aj.av[g3.str,],select=Anos)))
g4.dt =as.data.frame(t(subset(m.Ativo.aj.av[g4.str,],select=Anos)))
g5.dt =as.data.frame(t(subset(m.Ativo.aj.av[g5.str,],select=Anos)))

g1.class=unlist(strsplit(g1.str," - ",fixed=TRUE))
g2.class=unlist(strsplit(g2.str," - ",fixed=TRUE))
g3.class=unlist(strsplit(g3.str," - ",fixed=TRUE))
g4.class=unlist(strsplit(g4.str," - ",fixed=TRUE))
g5.class=unlist(strsplit(g5.str," - ",fixed=TRUE))

g1.conta=c(rep(g1.class[1],9))
g2.conta=c(rep(g2.class[1],9))
g3.conta=c(rep(g3.class[1],9))
g4.conta=c(rep(g4.class[1],9))
g5.conta=c(rep(g5.class[1],9))


g1.dt["Contas"]=g1.conta
g2.dt["Contas"]=g2.conta
g3.dt["Contas"]=g3.conta
g4.dt["Contas"]=g4.conta
g5.dt["Contas"]=g5.conta


names(g1.dt)[1]="Valor"
names(g2.dt)[1]="Valor"
names(g3.dt)[1]="Valor"
names(g4.dt)[1]="Valor"
names(g5.dt)[1]="Valor"



Anos = paste(Anos,"0101", sep="")
g1.dt["Anos"]=Anos
g2.dt["Anos"]=Anos
g3.dt["Anos"]=Anos
g4.dt["Anos"]=Anos
g5.dt["Anos"]=Anos


g.dt=(rbind(g1.dt,g2.dt,g3.dt,g4.dt,g5.dt))

rownames(g.dt)=c(1:length(row.names(g.dt)))

g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")

g1.dt$Anos = as.Date(g1.dt$Anos,"%Y%m%d")
g2.dt$Anos = as.Date(g2.dt$Anos,"%Y%m%d")
g3.dt$Anos = as.Date(g3.dt$Anos,"%Y%m%d")
g4.dt$Anos = as.Date(g4.dt$Anos,"%Y%m%d")
g5.dt$Anos = as.Date(g5.dt$Anos,"%Y%m%d")


g.dt["Anos"]=Anos
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g.dt$Contas = as.factor(g.dt$Contas)

g04 =ggplot(data=g.dt, aes(x=Anos ,y = Valor, group = Contas, colour= Contas, shape= Contas))+
  geom_line(col="gray70",size= 0.8, linetype = 3 )+
  # scale_color_manual(breaks = c(g1.class[1], g2.class[1],
  #                               g3.class[1],g4.class[1], g5.class[1]),
  scale_color_manual(values=c("tomato", "cornflowerblue","springgreen3","chocolate1","orchid"))+
  labs( x="Ano", y="Ativos (%)") +
  ggtitle("An. Vertical (% do Ativo Total)")+
  scale_y_continuous(labels = function(z) paste0(z*100, "%"), breaks=seq(-0.1,1.1,by= 0.2), limits=c(-0.1,1.1))+
  scale_x_date(date_labels = "%Y", date_breaks = "1 year") +
  geom_label_repel(
    aes(x=Anos ,y = Valor, label = paste0(f.dec(Valor*100,2), "%")),
    box.padding = 0.35, point.padding = 0.35,
    size = 3, nudge_y = 0.05,
    segment.color = "grey70") +
  geom_point(aes(shape = Contas),size = 3 , show.legend = TRUE) +
  scale_shape_manual(values=c(15, 16, 17, 18, 20))+
  theme_bw()+
  theme(panel.border = element_rect(fill=NA,color="black", size=.5, linetype="solid"),
        plot.title = element_text(color="black", size=18, face="bold.italic"),
        axis.title.x = element_text(color="black", size=16, face="bold"),
        axis.title.y = element_text(color="black", size=16, face="bold"),
        axis.text.x = element_text(face="plain", color="black", size=14, angle=0),
        axis.text.y = element_text(face="plain", color="black", size=14, angle=0))
# guides(group=g.dt, col = guide_legend(nrow=1))
g04 = g04 +
        theme(legend.position = c(0.20, 0.85), legend.title = element_text(size = 7),
      legend.text = element_text(size = 5.5), legend.key.size = unit(0.5, "cm"),
              legend.background = element_rect(fill="white", size=1, linetype="solid"))

print(g04)

Tarefa 1 : Análise de Tendências

Visualizar Análise Vertical: Refaça essa visualização do DRE

Análise de Tendências (II)

Análise Horizontal

#Ativo
m.Ativo.aj.med = as.data.frame(sapply(m.Ativo.aj.med, as.numeric))
colnames(m.Ativo.aj.med)=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
m.Ativo.aj.ah = m.Ativo.aj.med
m.Ativo.aj.ah = as.data.frame(apply(m.Ativo.aj.med, 2, "/", m.Ativo.aj.med[,"2010"]))
rownomes=rownames(m.Ativo)
row.names(m.Ativo.aj.ah)=rownomes
row.names(m.Ativo.aj.med)=rownomes
#m.Ativo.aj.ah[,"2010"]


# Passivo
m.Passivo.aj.med = as.data.frame(sapply(m.Passivo.aj.med, as.numeric))
colnames(m.Passivo.aj.med)=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
m.Passivo.aj.ah = m.Passivo.aj.med
m.Passivo.aj.ah = as.data.frame(apply(m.Passivo.aj.med, 2, "/", m.Passivo.aj.med[,"2010"]))
rownomes=rownames(m.Passivo)
row.names(m.Passivo.aj.ah)=rownomes
row.names(m.Passivo.aj.med)=rownomes
# m.Passivo.aj.ah[,"2010"]


#DRE
m.DRE.aj.cm= m.DRE.aj.cm[,1:9]
m.DRE.aj.ah = m.DRE.aj.cm[,1:9]
colnames(m.DRE.aj.cm)=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
m.DRE.aj.ah = as.data.frame(apply(m.DRE.aj.ah, 2, "/", m.DRE.aj.cm[,"2010"]))
rownomes=rownames(m.DRE)
row.names(m.DRE.aj.ah)=rownomes
row.names(m.DRE.aj.cm)=rownomes

Análise de Tendências (III)

Visualizar a Análise Horizontal

# Visualizar dados Passivos AH

rm(g1.dt)
rm(g2.dt)
rm(g3.dt)
rm(g4.dt)
rm(g5.dt)


g1.str="Passivo Circulante - PC"
g2.str= "Passivo Nao Circulante - PNC"
g3.str= "Patrimonio Liquido Consolidado - PL"
Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
g1.dt =as.data.frame(t(subset(m.Passivo.aj.ah[g1.str,],select=Anos)))
g2.dt =as.data.frame(t(subset(m.Passivo.aj.ah[g2.str,],select=Anos)))
g3.dt =as.data.frame(t(subset(m.Passivo.aj.ah[g3.str,],select=Anos)))

g1.class=unlist(strsplit(g1.str," - ",fixed=TRUE))
g2.class=unlist(strsplit(g2.str," - ",fixed=TRUE))
g3.class=unlist(strsplit(g3.str," - ",fixed=TRUE))

g1.conta=c(rep(g1.class[1],9))
g2.conta=c(rep(g2.class[1],9))
g3.conta=c(rep(g3.class[1],9))

g1.dt["Contas"]=g1.conta
g2.dt["Contas"]=g2.conta
g3.dt["Contas"]=g3.conta

names(g1.dt)[1]="Valor"
names(g2.dt)[1]="Valor"
names(g3.dt)[1]="Valor"

Anos = paste(Anos,"0101", sep="")
g1.dt["Anos"]=Anos

g2.dt["Anos"]=Anos

g3.dt["Anos"]=Anos



g.dt=(rbind(g1.dt,g2.dt,g3.dt))

rownames(g.dt)=c(1:length(row.names(g.dt)))

g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")

g1.dt$Anos = as.Date(g1.dt$Anos,"%Y%m%d")
g2.dt$Anos = as.Date(g2.dt$Anos,"%Y%m%d")
g3.dt$Anos = as.Date(g3.dt$Anos,"%Y%m%d")



g.dt["Anos"]=Anos
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g.dt$Contas = as.factor(g.dt$Contas)

g06 = ggplot(data=g.dt, aes(x=Anos ,y = Valor, group = Contas, colour= Contas ))+
  geom_line(col="gray70",size= 0.8, linetype = 3 )+
  labs( x="Ano", y="Passivos & PL %") +
  ggtitle("An. Horizontal (% de 2010)")+
 scale_y_continuous(labels = function(z) paste0(z*100, "%"), breaks=seq(0.4,1.4,by=0.20), limits=c(0.4,1.4))+
 scale_x_date(date_labels = "%Y", date_breaks = "1 year") +
  geom_label_repel(
  aes(x=Anos ,y = Valor, label = paste0(f.dec(Valor*100,2), "%")),
  box.padding = 0.2, point.padding = 0.2,
  size = 3, nudge_y = 0.05,
   segment.color = "grey70") + geom_point(aes(shape = Contas),size = 3) +
  scale_shape_manual(values=c(15, 16, 17)) + scale_size_manual(values=c(4, 4, 6)) + theme_bw()+
  theme(panel.border = element_rect(fill=NA,color="black", size=.5, linetype="solid"),
       plot.title = element_text(color="black", size=18, face="bold.italic"),
       axis.title.x = element_text(color="black", size=16, face="bold"),
      axis.title.y = element_text(color="black", size=16, face="bold"),
      axis.text.x = element_text(face="plain", color="black", size=14, angle=0),
      axis.text.y = element_text(face="plain", color="black", size=14, angle=0))
   # guides(group=g.dt, col = guide_legend(nrow=1))

g06= g06 +
    theme(legend.position = c(0.20, 0.20), legend.title = element_text(size = 7),
      legend.text = element_text(size = 7), legend.key.size = unit(0.5, "cm"),
    legend.background = element_rect(fill="white", size=1, linetype="solid"))


  print(g06)

Análise de Tendências (IV)

Visualizar a Análise Horizontal

#Visualizar dados do Ativo: AH

rm(g1.dt)
rm(g2.dt)
rm(g3.dt)
rm(g4.dt)
rm(g5.dt)


g1.str="Caixa e Equivalentes de Caixa - AC"
g2.str= "Ativo Circulante - AC"
g3.str= "Investimentos - ANC"
g4.str="Imobilizado - ANC"
g5.str= "Ativo Nao Circulante - ANC"


Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
g1.dt =as.data.frame(t(subset(m.Ativo.aj.ah[g1.str,],select=Anos)))
g2.dt =as.data.frame(t(subset(m.Ativo.aj.ah[g2.str,],select=Anos)))
g3.dt =as.data.frame(t(subset(m.Ativo.aj.ah[g3.str,],select=Anos)))
g4.dt =as.data.frame(t(subset(m.Ativo.aj.ah[g4.str,],select=Anos)))
g5.dt =as.data.frame(t(subset(m.Ativo.aj.ah[g5.str,],select=Anos)))

g1.class=unlist(strsplit(g1.str," - ",fixed=TRUE))
g2.class=unlist(strsplit(g2.str," - ",fixed=TRUE))
g3.class=unlist(strsplit(g3.str," - ",fixed=TRUE))
g4.class=unlist(strsplit(g4.str," - ",fixed=TRUE))
g5.class=unlist(strsplit(g5.str," - ",fixed=TRUE))

g1.conta=c(rep(g1.class[1],9))
g2.conta=c(rep(g2.class[1],9))
g3.conta=c(rep(g3.class[1],9))
g4.conta=c(rep(g4.class[1],9))
g5.conta=c(rep(g5.class[1],9))


g1.dt["Contas"]=g1.conta
g2.dt["Contas"]=g2.conta
g3.dt["Contas"]=g3.conta
g4.dt["Contas"]=g4.conta
g5.dt["Contas"]=g5.conta


names(g1.dt)[1]="Valor"
names(g2.dt)[1]="Valor"
names(g3.dt)[1]="Valor"
names(g4.dt)[1]="Valor"
names(g5.dt)[1]="Valor"



Anos = paste(Anos,"0101", sep="")
g1.dt["Anos"]=Anos
g2.dt["Anos"]=Anos
g3.dt["Anos"]=Anos
g4.dt["Anos"]=Anos
g5.dt["Anos"]=Anos


g.dt=(rbind(g1.dt,g2.dt,g3.dt,g4.dt,g5.dt))

rownames(g.dt)=c(1:length(row.names(g.dt)))

g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")

g1.dt$Anos = as.Date(g1.dt$Anos,"%Y%m%d")
g2.dt$Anos = as.Date(g2.dt$Anos,"%Y%m%d")
g3.dt$Anos = as.Date(g3.dt$Anos,"%Y%m%d")
g4.dt$Anos = as.Date(g4.dt$Anos,"%Y%m%d")
g5.dt$Anos = as.Date(g5.dt$Anos,"%Y%m%d")


g.dt["Anos"]=Anos
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g.dt$Contas = as.factor(g.dt$Contas)

g07 =ggplot(data=g.dt, aes(x=Anos ,y = Valor, group = Contas, colour= Contas, shape= Contas))+
  geom_line(col="gray70",size= 0.8, linetype = 3 )+
 # scale_color_manual(breaks = c(g1.class[1], g2.class[1],
 #                               g3.class[1],g4.class[1], g5.class[1]),
  scale_color_manual(values=c("tomato", "cornflowerblue","springgreen3","chocolate1","orchid"))+
  labs( x="Ano", y="Ativos (%)") +
  ggtitle("An. Horizontal (% de 2010)")+
  scale_y_continuous(labels = function(z) paste0(z*100, "%"), breaks=seq(0.0,1.4,by= 0.2), limits=c(0.0,1.4))+
  scale_x_date(date_labels = "%Y", date_breaks = "1 year") +
  geom_label_repel(
    aes(x=Anos ,y = Valor, label = paste0(f.dec(Valor*100,2), "%")),
    box.padding = 0.35, point.padding = 0.15,
    size = 3, nudge_y = 0.25,
    segment.color = "grey70") +
  geom_point(aes(shape = Contas),size = 3, show.legend = TRUE) +
  scale_shape_manual(values=c(15, 16, 17, 18, 20))+
  theme_bw()+
  theme(panel.border = element_rect(fill=NA,color="black", size=.5, linetype="solid"),
        plot.title = element_text(color="black", size=18, face="bold.italic"),
        axis.title.x = element_text(color="black", size=16, face="bold"),
        axis.title.y = element_text(color="black", size=16, face="bold"),
        axis.text.x = element_text(face="plain", color="black", size=14, angle=0),
        axis.text.y = element_text(face="plain", color="black", size=14, angle=0))
# guides(group=g.dt, col = guide_legend(nrow=1))
g07 = g07 +
        theme(legend.position = c(0.12, 0.15), legend.title = element_text(size = 6),
      legend.text = element_text(size = 6), legend.key.size = unit(0.5, "cm"),
              legend.background = element_rect(fill="white", size=1, linetype="solid"))

print(g07)

Análise de Tendências (V)

Visualizar a Análise Horizontal

#Visualizar dados do DRE: AH

rm(g1.dt)
rm(g2.dt)
rm(g3.dt)
rm(g4.dt)
rm(g5.dt)

g1.str= "Resultado Bruto - DRE"
g2.str= "Resultado Antes do Resultado Financeiro e dos Tributos - DRE"
g3.str="Resultado Antes dos Tributos sobre o Lucro - DRE"
g4.str= "Lucro/Prejuizo Consolidado do Periodo - DRE"
g5.str= "Custo dos Bens e/ou Servicos Vendidos - DRE"

Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
g1.dt =as.data.frame(t(m.DRE.aj.ah[g1.str,1:9]))
g2.dt =as.data.frame(t(m.DRE.aj.ah[g2.str,1:9]))
g3.dt =as.data.frame(t(m.DRE.aj.ah[g3.str,1:9]))
g4.dt =as.data.frame(t(m.DRE.aj.ah[g4.str,1:9]))
g5.dt =as.data.frame(t(m.DRE.aj.ah[g5.str,1:9]))


#g5.dt=-1*g5.dt

g1.class=unlist(strsplit(g1.str," - ",fixed=TRUE))
g2.class=unlist(strsplit(g2.str," - ",fixed=TRUE))
g3.class=unlist(strsplit(g3.str," - ",fixed=TRUE))
g4.class=unlist(strsplit(g4.str," - ",fixed=TRUE))
g5.class=unlist(strsplit(g5.str," - ",fixed=TRUE))

g1.conta=c(rep(g1.class[1],9))
g2.conta=c(rep(g2.class[1],9))
g3.conta=c(rep(g3.class[1],9))
g4.conta=c(rep(g4.class[1],9))
g5.conta=c(rep(g5.class[1],9))

g1.dt["Contas"]=g1.conta
g2.dt["Contas"]=g2.conta
g3.dt["Contas"]=g3.conta
g4.dt["Contas"]=g4.conta
g5.dt["Contas"]=g5.conta


names(g1.dt)[1]="Valor"
names(g2.dt)[1]="Valor"
names(g3.dt)[1]="Valor"
names(g4.dt)[1]="Valor"
names(g5.dt)[1]="Valor"



Anos = paste(Anos,"0101", sep="")
g1.dt["Anos"]=Anos
g2.dt["Anos"]=Anos
g3.dt["Anos"]=Anos
g4.dt["Anos"]=Anos
g5.dt["Anos"]=Anos


g.dt=(rbind(g1.dt,g2.dt,g3.dt,g4.dt,g5.dt))

rownames(g.dt)=c(1:length(row.names(g.dt)))

g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")

g1.dt$Anos = as.Date(g1.dt$Anos,"%Y%m%d")
g2.dt$Anos = as.Date(g2.dt$Anos,"%Y%m%d")
g3.dt$Anos = as.Date(g3.dt$Anos,"%Y%m%d")
g4.dt$Anos = as.Date(g4.dt$Anos,"%Y%m%d")
g5.dt$Anos = as.Date(g5.dt$Anos,"%Y%m%d")


g.dt["Anos"]=Anos
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g.dt$Contas = as.factor(g.dt$Contas)

g08 =ggplot(data=g.dt, aes(x=Anos ,y = Valor, group = Contas, colour= Contas, shape= Contas))+
  geom_line(col="gray70",size= 0.8, linetype = 3 )+
  # scale_color_manual(breaks = c(g1.class[1], g2.class[1],
  #                               g3.class[1],g4.class[1], g5.class[1]),
  scale_color_manual(values=c("tomato", "cornflowerblue","springgreen3","chocolate1","orchid"))+
  labs( x="Ano", y="DRE (%)") +
  ggtitle("An. Horizontal (% de 2010)")+
  scale_y_continuous(labels = function(z) paste0(z*100, "%"), breaks=seq(-2.0,1.5,by= 0.5), limits=c(-2.0,1.5))+
  scale_x_date(date_labels = "%Y", date_breaks = "1 year") +
  geom_label_repel(
    aes(x=Anos ,y = Valor, label = paste0(f.dec(Valor*100,2), "%")),
    box.padding = 0.2, point.padding = 0.2,
    size = 3 , nudge_y = 0.20,
    segment.color = "grey70") +
  geom_point(aes(shape = Contas),size = 3 , show.legend = TRUE) +
  scale_shape_manual(values=c(15, 16, 17, 18, 20))+
  theme_bw()+
  theme(panel.border = element_rect(fill=NA,color="black", size=.5, linetype="solid"),
        plot.title = element_text(color="black", size=18, face="bold.italic"),
        axis.title.x = element_text(color="black", size=16, face="bold"),
        axis.title.y = element_text(color="black", size=16, face="bold"),
        axis.text.x = element_text(face="plain", color="black", size=14, angle=0),
        axis.text.y = element_text(face="plain", color="black", size=14, angle=0))
# guides(group=g.dt, col = guide_legend(nrow=1))

g08= g08 +
        theme(legend.position = c(0.25, 0.25), legend.title = element_text(size = 7),
      legend.text = element_text(size = 7), legend.key.size = unit(0.4, "cm"),
             legend.background = element_rect(fill="white", size=1, linetype="solid"))


print(g08)

Análise de Tendências (VII)

Contas da Dinâmica do Capital de Giro

– Ativo Cíclico ou Operacional \(AC_{op}\): AC - Caixa e Equivalentes de Caixa - Aplic. Finan.

– Passivo Cíclico ou Operacional \(PC_{op}\): PC - Emprestimos e Financiamentos - Instrumentos Financeiros - Titulos a pagar (Forfaiting)

– Ativo Financeiro \(AC_f\): AC - Ativo Cíclico

– Passivo Financeiro (= Passivo Oneroso) PC_f: PC - Passivo Cíclico

Análise de Tendências (VIIa)

NECESSIDADE DE CAPITAL DE GIRO:

\(NIG = (AC_{op} - PC_{op})\)

Revela o montante de capital permanente que uma empresa necessita para financiar seu capital de giro. Esse volume é determinado pelo nível de atividade da empresa (produção e vendas) e prazos operacionais.

CAPITAL DE GIRO LÍQUIDO:

\(CGL = (AC - PC)\)

Representa o volume de recursos de longo prazo (próprios ou de terceiros) investidos no giro.

SALDO DE DISPONÍVEL:

\(SD= (CGL - NCG)\) ou \((AC_f - PC_f)\)

É uma medida de margem de segurança financeira de uma empresa, que indica sua capacidade interna de financiar um crescimento da atividade operacional. É uma reserva financeira.

NECESSIDADE TOTAL DE FINANCIAMENTO PERMANENTE:

\(NTFP = (NCG + ANC)\)

É o crescimento mínimo de passivo não circulante que a empresa deve manter visando lastrear seus investimentos em giro e fixo, e estabelecer seu equilíbrio financeiro.

Análise de Tendências (VIII)

Contas da Dinâmica Operacional

 # Capital de Giro Liquido
Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")

cgl.ac=as.numeric(m.Ativo.aj.med["Ativo Circulante - AC",])
cgl.pc=as.numeric(m.Passivo.aj.med["Passivo Circulante - PC",])

cgl=cgl.ac - cgl.pc
cgl=as.data.frame(cgl)
colnames(cgl)=c("Capital de Giro Liquido")
rownames(cgl)= Anos

# at.ciclico
at.ciclico.caixa=as.numeric(m.Ativo.aj.med["Caixa e Equivalentes de Caixa - AC",])
at.ciclico.apfinan=as.numeric(m.Ativo.aj.med["Aplicacoes Financeiras - AC",])

at.ciclico=cgl.ac-at.ciclico.caixa-at.ciclico.apfinan
at.ciclico=as.data.frame(at.ciclico)
colnames(at.ciclico)=c("Ativo Ciclico")
rownames(at.ciclico)= Anos


#pa.ciclico

pa.ciclico.empfinan=as.numeric(m.Passivo.aj.med["Emprestimos e Financiamentos - PC",])
pa.ciclico.intfinan=as.numeric(m.Passivo.aj.med["Instrumentos Financeiros - PC",])
pa.ciclico.forfaiting=as.numeric(m.Passivo.aj.med["Titulos a pagar - Forfaiting - PC",])


pa.ciclico=cgl.pc-pa.ciclico.empfinan-pa.ciclico.intfinan-pa.ciclico.forfaiting
pa.ciclico=as.data.frame(pa.ciclico)
colnames(pa.ciclico)=c("Passivo Ciclico")
rownames(pa.ciclico)= Anos
pa.ciclico=as.data.frame(pa.ciclico)

#at.financ
at.finan=cgl.ac-at.ciclico
at.finan=as.data.frame(at.finan)
colnames(at.finan)=c("Ativo Financeiro")
rownames(at.finan)= Anos
at.finan=as.data.frame(at.finan)


#pa.financ
pa.finan=cgl.pc-pa.ciclico
pa.finan=as.data.frame(pa.finan)
colnames(pa.finan)=c("Passivo Financeiro")
rownames(pa.finan)= Anos
pa.finan=as.data.frame(pa.finan)


# necessidade de investimento de giro

nig=at.ciclico-pa.ciclico
nig=as.data.frame(nig)
colnames(nig)=c("Necessidade de Investimento de Giro")
rownames(nig)= Anos
nig=as.data.frame(nig)


# saldo disponivel

sdisp=cgl-nig
sdisp=as.data.frame(sdisp)
colnames(sdisp)=c("Saldo de Disponivel")
rownames(sdisp)= Anos
sdisp=as.data.frame(sdisp)

#  Necessidade Total de Financiamento Permanente - NTFP
at.perm=as.numeric(m.Ativo.aj.med["Imobilizado - ANC",])+as.numeric(m.Ativo.aj.med["Investimentos - ANC",])
ntfp=nig+at.perm
ntfp=as.data.frame(ntfp)
colnames(ntfp)=c("Necessidade Total de Financiamento Permanente")
rownames(ntfp)= Anos
ntfp=as.data.frame(ntfp)


colnames(at.ciclico)=c("Ativo Ciclico")
rownames(at.ciclico)= Anos
at.ciclico=as.data.frame(at.ciclico)

colnames(pa.ciclico)=c("Passivo Ciclico")
rownames(pa.ciclico)= Anos
pa.ciclico=as.data.frame(pa.ciclico)

Análise de Tendências (IX)

Contas da Dinâmica Operacional

# Visualizar AC ciclico e financeiro

rm(g1.dt)
rm(g2.dt)
rm(g3.dt)
rm(g4.dt)
rm(g5.dt)

g1.str= "Ativo Circulante - AC"
g2.str= "Ativo Ciclico"
g3.str= "Ativo Financeiro"

Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
g1.dt = as.data.frame( t(m.Ativo.aj.med[g1.str,1:9]) )
g2.dt = at.ciclico
g3.dt = at.finan


g1.class[1]=g1.str
g2.class[1]=g2.str
g3.class[1]=g3.str


g1.conta=c(rep(g1.class[1],9))
g2.conta=c(rep(g2.class[1],9))
g3.conta=c(rep(g3.class[1],9))

g1.dt["Contas"]=g1.conta
g2.dt["Contas"]=g2.conta
g3.dt["Contas"]=g3.conta

names(g1.dt)[1]="Valor"
names(g2.dt)[1]="Valor"
names(g3.dt)[1]="Valor"

Anos = paste(Anos,"0101", sep="")
g1.dt["Anos"]=Anos

g2.dt["Anos"]=Anos

g3.dt["Anos"]=Anos

g.dt=(rbind(g1.dt,g2.dt,g3.dt))

rownames(g.dt)=c(1:length(row.names(g.dt)))

g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")

g1.dt$Anos = as.Date(g1.dt$Anos,"%Y%m%d")
g2.dt$Anos = as.Date(g2.dt$Anos,"%Y%m%d")
g3.dt$Anos = as.Date(g3.dt$Anos,"%Y%m%d")

g.dt["Anos"]=Anos
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g.dt$Contas = as.factor(g.dt$Contas)

g09 = ggplot(data=g.dt, aes(x=Anos ,y = Valor, group = Contas, colour= Contas ))+
  geom_line(col="gray70",size= 0.8, linetype = 3 )+
  labs( x="Ano", y="Ativos (Bilhões R$)") +
  ggtitle("Comparativo de Ativos Circulante, Ciclico e Financeiro")+
  scale_y_continuous(labels = function(z) paste0(z/1000000, " Bi R$"), breaks=seq(0,20000000,by= 2500000), limits=c(0,20000000))+
  scale_x_date(date_labels = "%Y", date_breaks = "1 year") +
  geom_label_repel(
    aes(x=Anos ,y = Valor, label = paste0(f.dec(Valor/1000000,3), " Bi")),
    box.padding = 0.2, point.padding = 0.2,
    size = 3, nudge_y = 0.15,
    segment.color = "grey70") + geom_point(aes(shape = Contas),size =3) +
  scale_shape_manual(values=c(15, 16, 17)) + scale_size_manual(values=c(4, 4, 6)) + theme_bw()+
  theme(panel.border = element_rect(fill=NA,color="black", size=.5, linetype="solid"),
        plot.title = element_text(color="black", size=18, face="bold.italic"),
        axis.title.x = element_text(color="black", size=16, face="bold"),
        axis.title.y = element_text(color="black", size=16, face="bold"),
        axis.text.x = element_text(face="plain", color="black", size=14, angle=0),
        axis.text.y = element_text(face="plain", color="black", size=14, angle=0))
# guides(group=g.dt, col = guide_legend(nrow=1))
g09= g09 +
  # scale_colour_grey(start = 0.3, end = 0.4) +
  theme(legend.position = c(0.80, 0.80), legend.title = element_text(size = 8),
      legend.text = element_text(size = 8), legend.key.size = unit(0.5, "cm"),
         legend.background = element_rect(fill="white", size=1, linetype="solid"))

 print(g09)

 # Visualizar PC, cíclico e financeiro

 rm(g1.dt)
 rm(g2.dt)
 rm(g3.dt)
 rm(g4.dt)
 rm(g5.dt)


 g1.str= "Passivo Circulante - PC"
 g2.str= "Passivo Ciclico"
 g3.str= "Passivo Financeiro"

 Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
 g1.dt = as.data.frame( t(m.Passivo.aj.med[g1.str,1:9]) )
 g2.dt = pa.ciclico
 g3.dt = pa.finan

 g1.class[1]=g1.str
 g2.class[1]=g2.str
 g3.class[1]=g3.str

 g1.conta=c(rep(g1.class[1],9))
 g2.conta=c(rep(g2.class[1],9))
 g3.conta=c(rep(g3.class[1],9))

 g1.dt["Indicadores"]=g1.conta
 g2.dt["Indicadores"]=g2.conta
 g3.dt["Indicadores"]=g3.conta

 names(g1.dt)[1]="Valor"
 names(g2.dt)[1]="Valor"
 names(g3.dt)[1]="Valor"

 Anos = paste(Anos,"0101", sep="")
 g1.dt["Anos"]=Anos

 g2.dt["Anos"]=Anos

 g3.dt["Anos"]=Anos

 g.dt=(rbind(g1.dt,g2.dt,g3.dt))

 rownames(g.dt)=c(1:length(row.names(g.dt)))

 g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")

 g1.dt$Anos = as.Date(g1.dt$Anos,"%Y%m%d")
 g2.dt$Anos = as.Date(g2.dt$Anos,"%Y%m%d")
 g3.dt$Anos = as.Date(g3.dt$Anos,"%Y%m%d")


 g.dt["Anos"]=Anos
 g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
 # g.dt$Contas = as.factor(g.dt$Contas)

 g10 = ggplot(data=g.dt, aes(x=Anos ,y = Valor, group = Indicadores, colour= Indicadores ))+
   geom_line(col="gray70",size= 0.8, linetype = 3 )+
   labs( x="Ano", y="Passivos (Bilhões R$)") +
   ggtitle("Comparativo de Passivos Circulante, Ciclico e Financeiro")+
   scale_y_continuous(labels = function(z) paste0(z/1000000, " Bi R$"), breaks=seq(0,7000000,by= 1000000), limits=c(0,7000000))+
   scale_x_date(date_labels = "%Y", date_breaks = "1 year") +
   geom_label_repel(
     aes(x=Anos ,y = Valor, label = paste0(f.dec(Valor/1000000,3), " Bi")),
     box.padding = 0.2, point.padding = 0.2,
     size = 3, nudge_y = 0.15,
     segment.color = "grey70") + geom_point(aes(shape = Indicadores),size =3.5) +
   scale_shape_manual(values=c(15, 16, 17)) + scale_size_manual(values=c(4, 4, 6)) + theme_bw()+
   theme(panel.border = element_rect(fill=NA,color="black", size=.5, linetype="solid"),
         plot.title = element_text(color="black", size=18, face="bold.italic"),
         axis.title.x = element_text(color="black", size=16, face="bold"),
         axis.title.y = element_text(color="black", size=16, face="bold"),
         axis.text.x = element_text(face="plain", color="black", size=14, angle=0),
         axis.text.y = element_text(face="plain", color="black", size=14, angle=0))
 # guides(group=g.dt, col = guide_legend(nrow=1))
 g10= g10 +
   # scale_colour_grey(start = 0.3, end = 0.4) +
   theme(legend.position = c(0.85, 0.80), legend.title = element_text(size = 8),
      legend.text = element_text(size = 8), legend.key.size = unit(0.5, "cm"),
         legend.background = element_rect(fill="white", size=1, linetype="solid"))

 print(g10)

Análise de Tendências (X)

Contas da Dinâmica Operacional

# Visualizar CGL, NIG e SD

 rm(g1.dt)
 rm(g2.dt)
 rm(g3.dt)
 rm(g4.dt)
 rm(g5.dt)


 g1.str= "Capital de Giro Liquido"
 g2.str= "Necessidade de Investimento de Giro"
 g3.str= "Saldo de Disponivel"
 g4.str= "Necessidade Total de Financiamento Permanente"


 Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
 g1.dt = cgl
 g2.dt = nig
 g3.dt = sdisp
 g4.dt = ntfp


 g1.class[1]=g1.str
 g2.class[1]=g2.str
 g3.class[1]=g3.str
 g4.class[1]=g4.str


 g1.conta=c(rep(g1.class[1],9))
 g2.conta=c(rep(g2.class[1],9))
 g3.conta=c(rep(g3.class[1],9))
 g4.conta=c(rep(g4.class[1],9))

 g1.dt["Contas"]=g1.conta
 g2.dt["Contas"]=g2.conta
 g3.dt["Contas"]=g3.conta
 g4.dt["Contas"]=g4.conta

 names(g1.dt)[1]="Valor"
 names(g2.dt)[1]="Valor"
 names(g3.dt)[1]="Valor"
 names(g4.dt)[1]="Valor"


 Anos = paste(Anos,"0101", sep="")
 g1.dt["Anos"]=Anos

 g2.dt["Anos"]=Anos

 g3.dt["Anos"]=Anos

 g4.dt["Anos"]=Anos


 g.dt=(rbind(g1.dt,g2.dt,g3.dt,g4.dt))

 rownames(g.dt)=c(1:length(row.names(g.dt)))

 g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")

 g1.dt$Anos = as.Date(g1.dt$Anos,"%Y%m%d")
 g2.dt$Anos = as.Date(g2.dt$Anos,"%Y%m%d")
 g3.dt$Anos = as.Date(g3.dt$Anos,"%Y%m%d")
 g4.dt$Anos = as.Date(g4.dt$Anos,"%Y%m%d")


 g.dt["Anos"]=Anos
 g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
 g.dt$Contas = as.factor(g.dt$Contas)

 g11 = ggplot(data=g.dt, aes(x=Anos ,y = Valor, group = Contas, colour= Contas ))+
   geom_line(col="gray70",size= 0.8, linetype = 3 )+
   scale_color_manual(values=c("tomato", "cornflowerblue","springgreen3","chocolate1"))+
   labs( x="Ano", y="Ativos (Bilhões R$)") +
   ggtitle("Comparativo de Indicadores de Giro")+
   scale_y_continuous(labels = function(z) paste0(z/1000000, " Bi R$"), breaks=seq(-5000000,34000000,by= 5000000), limits=c(-5000000,34000000))+
   scale_x_date(date_labels = "%Y", date_breaks = "1 year") +
   geom_label_repel(
     aes(x=Anos ,y = Valor, label = paste0(f.dec(Valor/1000000,3), " Bi")),
     box.padding = 0.2, point.padding = 0.2,
     size = 3 , nudge_y = 0.25,
     segment.color = "grey70") + geom_point(aes(shape = Contas),size =3) +
   scale_shape_manual(values=c(15, 16, 17, 18)) + scale_size_manual(values=c(4, 4, 6, 6)) + theme_bw()+
   theme(panel.border = element_rect(fill=NA,color="black", size=.5, linetype="solid"),
         plot.title = element_text(color="black", size=18, face="bold.italic"),
         axis.title.x = element_text(color="black", size=16, face="bold"),
         axis.title.y = element_text(color="black", size=16, face="bold"),
         axis.text.x = element_text(face="plain", color="black", size=14, angle=0),
         axis.text.y = element_text(face="plain", color="black", size=14, angle=0))
 # guides(group=g.dt, col = guide_legend(nrow=1))
 g11= g11 +
   # scale_colour_grey(start = 0.3, end = 0.4) +
   theme(legend.position = c(0.81, 0.86), legend.title = element_text(size = 7),
      legend.text = element_text(size = 6), legend.key.size = unit(0.4, "cm"),
         legend.background = element_rect(fill="white", size=1, linetype="solid"))

 print(g11)

Análise de Liquidez

LIQUIDEZ IMEDIATA:

\(LI= (Disponível) / PC)\)

Mostra quantos R$ a empresa tem no disponível (caixa, bancos e aplicações financeiras disponíveis), para pagar as dividas vencíveis em um ano.Revela a capacidade de pagamento no curtíssimo prazo (imediata).

LIQUIDEZ CORRENTE:

\(LC= (AC / PC)\)

Mostra quantos R$ a empresa tem no ativo circulante, para pagar cada real de divida vencível de um ano. Revela a capacidade de pagamento a curto prazo.

LIQUIDEZ SECA:

\(LS= (AC - Estoques - Desp. Antec.) / PC\)

Mostra quanto tem no ativo circulante (não considerados os estoques e as despesas antecipadas) para pagar cada real de divida vencível dentro de um ano. Revela a capacidade de pagamento caso ocorra uma paralisação nas vendas. Não aplicável com just-in-time.

LIQUIDEZ GERAL:

\(LG = (AC + ARLP) / (PC + PELP)\)

Mostra quantos R$ a empresa tem de valores disponíveis e realizáveis (em qualquer prazo) para pagar cada real do total de suas dívidas (a curto e a longo prazo). Revela a capacidade de pagamento geral.

Tarefa 2: Análise de Liquidez

Realizar as contas e a visualização

Visualizar a Liquidez

Análise da Estrutura de Capital

Quantidade Endividamento Oneroso:

\((Passivo\ Oneroso)/(PL + Passivo\ Oneroso)\)

Maturidade ou Qualidade de Vencimento:

\((Capital\ de\ Terceiros\ CP)/(Capital de Terceiros Total) = PC/(Passivo Total)\)

Qualidade da Dívida Onerosa:

\((Passivo\ Oneroso\ CP)/(Passivo\ Oneroso)\)

Grau de Endividamento:

\((Passivo\ Total)/PL\)

Grau de Endividamento Oneroso:

\((Passivo\ Oneroso)/PL\)

Análise da Estrutura de Capital (I)

Indicadores do Endividamento

  #Índices de endividamento

Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")

 # Capital de Terceiros
ind.cap.terc=(m.Passivo.aj.med["Passivo Circulante - PC",]+m.Passivo.aj.med["Passivo Nao Circulante - PNC",])/(m.Passivo.aj.med["Passivo Total - PT",])
ind.cap.terc=as.data.frame(t(ind.cap.terc))
colnames(ind.cap.terc)=c("Capital de Terceiros")
rownames(ind.cap.terc)= Anos
ind.cap.terc=as.data.frame(ind.cap.terc)

# Capital Proprio
ind.cap.prop=m.Passivo.aj.med["Patrimonio Liquido Consolidado - PL",]/(m.Passivo.aj.med["Passivo Total - PT",])
ind.cap.prop=as.data.frame(t(ind.cap.prop))
colnames(ind.cap.prop)=c("Capital Proprio")
rownames(ind.cap.prop)= Anos
ind.cap.prop=as.data.frame(ind.cap.prop)


# Qualidade do vencimento
ind.qual.vencim=m.Passivo.aj.med["Passivo Circulante - PC",]/m.Passivo.aj.med["Patrimonio Liquido Consolidado - PL",]
ind.qual.vencim=as.data.frame(t(ind.qual.vencim))
colnames(ind.qual.vencim)=c("Qualidade do Vencimento")
rownames(ind.qual.vencim)= Anos
ind.qual.vencim=as.data.frame(ind.qual.vencim)

# Passivo Oneroso - Qualidade do Passivo Oneroso
pa.oneroso=m.Passivo.aj.med["Passivo Nao Circulante - PNC",]+m.Passivo.aj.med["Emprestimos e Financiamentos - PC",]+m.Passivo.aj.med["Instrumentos Financeiros - PC",]+m.Passivo.aj.med["Titulos a pagar - Forfaiting - PC",]
ind.pa.onero=pa.oneroso/m.Passivo.aj.med["Passivo Total - PT",]
ind.pa.onero=as.data.frame(t(ind.pa.onero))
colnames(ind.pa.onero)=c("Qualidade do Passivo Oneroso")
rownames(ind.pa.onero)= Anos
ind.pa.onero=as.data.frame(ind.pa.onero)

#Grau de Endividamento
ind.grau.end=(m.Passivo.aj.med["Passivo Circulante - PC",]+m.Passivo.aj.med["Passivo Nao Circulante - PNC",])/m.Passivo.aj.med["Patrimonio Liquido Consolidado - PL",]
ind.grau.end=as.data.frame(t(ind.grau.end))
colnames(ind.grau.end)=c("Grau de Endividamento")
rownames(ind.grau.end)= Anos
ind.grau.end=as.data.frame(ind.grau.end)


#Grau de Endividamento Oneroso
ind.grau.end.onero=pa.oneroso/m.Passivo.aj.med["Patrimonio Liquido Consolidado - PL",]
ind.grau.end.onero=as.data.frame(t(ind.grau.end.onero))
colnames(ind.grau.end.onero)=c("Grau de Endividamento Oneroso")
rownames(ind.grau.end.onero)= Anos
ind.grau.end.onero=as.data.frame(ind.grau.end.onero)


v.PL.aj=m.Passivo.aj.med["Patrimonio Liquido Consolidado - PL",]
rownames(v.PL.aj)=c("Patrimonio Liquido Consolidado - PL")

v.juros=m.DFC.aj.cm["Despesas de Juros - DFC-O",1:9]
v.pa.onero.emp=m.Passivo.aj.med["Emprestimos e Financiamentos - PNC",]+
  m.Passivo.aj.med["Emprestimos e Financiamentos - PC",]+
  m.Passivo.aj.med["Instrumentos Financeiros - PC",]+
  m.Passivo.aj.med["Titulos a pagar - Forfaiting - PC",]
v.invest=v.pa.onero.emp+v.PL.aj
  
rownames(v.juros)=c("Juros")

Análise da Estrutura de Capital (II)

Visualização do Endividamento

rm(g1.dt)
rm(g2.dt)
rm(g3.dt)
rm(g4.dt)
rm(g5.dt)



g1.str="Capital de Terceiros"
g2.str= "Capital Proprio"
g3.str= "Qualidade do Vencimento"
g4.str="Qualidade do Passivo Oneroso"
g5.str= "Grau de Endividamento"
g6.str= "Grau de Endividamento Oneroso"


Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
g1.dt =as.data.frame(ind.cap.terc)
g2.dt =as.data.frame(ind.cap.prop)
g3.dt =as.data.frame(ind.qual.vencim)
g4.dt =as.data.frame(ind.pa.onero)
g5.dt =as.data.frame(ind.grau.end)
g6.dt =as.data.frame(ind.grau.end.onero)

g1.conta=c(rep(g1.str,9))
g2.conta=c(rep(g2.str,9))
g3.conta=c(rep(g3.str,9))
g4.conta=c(rep(g4.str,9))
g5.conta=c(rep(g5.str,9))
g6.conta=c(rep(g6.str,9))


g1.dt["Endiv."]=g1.conta
g2.dt["Endiv."]=g2.conta
g3.dt["Endiv."]=g3.conta
g4.dt["Endiv."]=g4.conta
g5.dt["Endiv."]=g5.conta
g6.dt["Endiv."]=g6.conta

names(g1.dt)[1]="Valor"
names(g2.dt)[1]="Valor"
names(g3.dt)[1]="Valor"
names(g4.dt)[1]="Valor"
names(g5.dt)[1]="Valor"
names(g6.dt)[1]="Valor"


Anos = paste(Anos,"0101", sep="")
g1.dt["Anos"]=Anos
g2.dt["Anos"]=Anos
g3.dt["Anos"]=Anos
g4.dt["Anos"]=Anos
g5.dt["Anos"]=Anos
g6.dt["Anos"]=Anos

g.dt=(rbind(g1.dt,g2.dt,g3.dt,g4.dt,g5.dt,g6.dt))

rownames(g.dt)=c(1:length(row.names(g.dt)))

g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")

g1.dt$Anos = as.Date(g1.dt$Anos,"%Y%m%d")
g2.dt$Anos = as.Date(g2.dt$Anos,"%Y%m%d")
g3.dt$Anos = as.Date(g3.dt$Anos,"%Y%m%d")
g4.dt$Anos = as.Date(g4.dt$Anos,"%Y%m%d")
g5.dt$Anos = as.Date(g5.dt$Anos,"%Y%m%d")
g6.dt$Anos = as.Date(g6.dt$Anos,"%Y%m%d")

g.dt["Anos"]= Anos
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
#g.dt$Contas = as.factor(g.dt$Contas)

g13 =ggplot(data=g.dt, aes(x=Anos ,y = Valor, group = Endiv., colour= Endiv., shape= Endiv.))+
  geom_line(col="gray70",size= 0.8, linetype = 3 )+
  # scale_color_manual(breaks = c(g1.class[1], g2.class[1],
  #                               g3.class[1],g4.class[1], g5.class[1]),
  scale_color_manual(values=c("tomato", "cornflowerblue","springgreen3","chocolate1","orchid","cyan4"))+
  labs( x="Ano", y="Indice (%)") +
  ggtitle("An. de Endividamento (Estrutura de Capital)")+
  scale_y_continuous(labels = function(z) paste0(z*100, " %"), breaks=seq(0,1.2,by= 0.2), limits=c(0,1.2))+
  scale_x_date(date_labels = "%Y", date_breaks = "1 year") +
  geom_label_repel(
    aes(x=Anos ,y = Valor, label = paste0(f.dec(Valor*100,2), " %")),
    box.padding = 0.25, point.padding = 0.25,
    size = 2.5, nudge_y = 0.05,
    segment.color = "grey70") +
  geom_point(aes(shape = Endiv.),size = 3.5, show.legend = TRUE) +
  scale_shape_manual(values=c(15, 16, 17, 18, 19, 20))+
  theme_bw()+
  theme(panel.border = element_rect(fill=NA,color="black", size=.5, linetype="solid"),
        plot.title = element_text(color="black", size=18, face="bold.italic"),
        axis.title.x = element_text(color="black", size=16, face="bold"),
        axis.title.y = element_text(color="black", size=16, face="bold"),
        axis.text.x = element_text(face="plain", color="black", size=14, angle=0),
        axis.text.y = element_text(face="plain", color="black", size=14, angle=0))
# guides(group=g.dt, col = guide_legend(nrow=1))
g13 = g13 +
   
  theme(legend.position = c(0.30, 0.83), legend.title = element_text(size = 5.5),
      legend.text = element_text(size = 5.5), legend.key.size = unit(0.5, "cm"),
  legend.background = element_rect(fill="white", size=1, linetype="solid"))


print(g13)

Análise da Estrutura de Capital (II)

Visualização do Endividamento

# Visualizar Juros, Passivo Oneroso e Investimento

rm(g1.dt)
rm(g2.dt)
rm(g3.dt)
rm(g4.dt)
rm(g1.conta)
rm(g2.conta)
rm(g3.conta)
rm(g4.conta)

rownames(v.juros)=c("Juros")
rownames(v.pa.onero.emp)=c("Passivo Oneroso")
rownames(v.invest)=c("Investimento (Terc + Proprio)")  

g1.str= "Juros"
g2.str= "Passivo Oneroso"
g3.str= "Investimento (Terc + Proprio)"

Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
g1.dt = as.data.frame(t(v.juros))
g2.dt = as.data.frame(t(v.pa.onero.emp))
g3.dt = as.data.frame(t(v.invest))

g1.conta=c(rep(g1.str,9))
g2.conta=c(rep(g2.str,9))
g3.conta=c(rep(g3.str,9))

g1.dt["Valores"]=g1.conta
g2.dt["Valores"]=g2.conta
g3.dt["Valores"]=g3.conta

names(g1.dt)[1]="Valor"
names(g2.dt)[1]="Valor"
names(g3.dt)[1]="Valor"

Anos = paste(Anos,"0101", sep="")
g1.dt["Anos"]=Anos

g2.dt["Anos"]=Anos

g3.dt["Anos"]=Anos

g.dt=(rbind(g1.dt,g2.dt,g3.dt))

rownames(g.dt)=c(1:length(row.names(g.dt)))

g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")

g1.dt$Anos = as.Date(g1.dt$Anos,"%Y%m%d")
g2.dt$Anos = as.Date(g2.dt$Anos,"%Y%m%d")
g3.dt$Anos = as.Date(g3.dt$Anos,"%Y%m%d")

g.dt["Anos"]=Anos
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g.dt$Valores = as.factor(g.dt$Valores)

g14 = ggplot(data=g.dt, aes(x=Anos ,y = Valor, group = Valores, colour= Valores ))+
  geom_line(col="gray70",size= 0.8, linetype = 3 )+
  labs( x="Ano", y="Valores (Bilhões R$)") +
  ggtitle("Indicadores Econômicos do Passivo da Empresa")+
  scale_y_continuous(labels = function(z) paste0(z/1000000, " Bi R$"), breaks=seq(0,45000000,by= 10000000), limits=c(0,45000000))+
  scale_x_date(date_labels = "%Y", date_breaks = "1 year") +
  geom_label_repel(
    aes(x=Anos ,y = Valor, label = paste0(f.dec(Valor/1000000,3), " Bi")),
    box.padding = 0.35, point.padding = 0.35,
    size = 3, nudge_y = 0.25,
    segment.color = "grey70") + geom_point(aes(shape = Valores),size = 3.5) +
  scale_shape_manual(values=c(15, 16, 17)) + scale_size_manual(values=c(4, 4, 6)) + theme_bw()+
  theme(panel.border = element_rect(fill=NA,color="black", size=.5, linetype="solid"),
        plot.title = element_text(color="black", size=18, face="bold.italic"),
        axis.title.x = element_text(color="black", size=16, face="bold"),
        axis.title.y = element_text(color="black", size=16, face="bold"),
        axis.text.x = element_text(face="plain", color="black", size=14, angle=0),
        axis.text.y = element_text(face="plain", color="black", size=14, angle=0))
# guides(group=g.dt, col = guide_legend(nrow=1))
g14= g14 +
  # scale_colour_grey(start = 0.3, end = 0.4) +
  theme(legend.position = c(0.80, 0.85), legend.title = element_text(size = 8),
      legend.text = element_text(size = 8), legend.key.size = unit(0.5, "cm"),
        legend.background = element_rect(fill="white", size=1, linetype="solid"))

print(g14)

Análise de Lucratividade

EBITDA: pontencialidade de geração de caixa antes dos juros da depreciação e da amortização

EBIT: genuíno lucro operacional

NOPAT: lucro operacional livre após impostos

NOPLAT: lucro operacional livre (sem os impostos)

FCL: fluxo de caixa livre

FCLA: fluxo de caixa livre do acionista

Observações:

– Imposto=34%

– EBIT = “Earning Before Interest and Taxes”, também chamado no Brasil de LAJIR.

– EBITDA = “Earning Before Interest, Taxes, Depreciation and Amortization”, também chamado no Brasil de LAJIDA.

– NOPAT = “Net operating profit after taxes” (lucro de exploração da atividade líquido após o imposto).

– NOPLAT = “Net operating profit less adjusted taxes” (lucro de exploração da atividade líquido ajustado sem o imposto).

\(NOPLAT=NOPAT+Juros*34\%\)

Análise de Lucratividade (I)

# Índices de Lucratividade
Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
v.deprec = m.DFC.aj.cm["Depreciacao, Amortizacao e Exaustao - DFC-O",1:9]
rownames(v.deprec)=c("Depreciacao, Amortizacao e Exaustao")
v.vendas = m.DRE.aj.cm["Receita de Venda de Bens e/ou Servicos - DRE",]
rownames(v.vendas)=c("Receita de Venda de Bens e/ou Servicos")
ind.ebit= m.DRE.aj.cm["Resultado Antes do Resultado Financeiro e dos Tributos - DRE",]-
  m.DRE.aj.cm["Resultado de Equivalencia Patrimonial - DRE",]-
  m.DRE.aj.cm["Outras Despesas Operacionais - DRE",]-
  m.DRE.aj.cm["Outras Receitas Operacionais - DRE",]
ind.ebitda= ind.ebit+v.deprec
ind.nopat= ind.ebit*(1-0.34)

rownames(ind.ebit)=c("EBIT")
rownames(ind.ebitda)=c("EBITA")
rownames(ind.nopat)=c("NOPAT")

ind.noplat= ind.nopat+v.juros*0.34 # NOPLAT= Net operating profit less adjusted taxes
 rownames(ind.noplat)=c("NOPLAT")


#Margem do EBIT, EBITDA e NOPAT

v.marg.ebit=ind.ebit/v.vendas
v.marg.ebitda=ind.ebitda/v.vendas  
v.marg.nopat=ind.nopat/v.vendas 

rownames(v.marg.ebit)=c("Margem EBIT")
rownames(v.marg.ebitda)=c("Margem EBITA")
rownames(v.marg.nopat)=c("Margem NOPAT")

rownames(v.deprec)=c("Depreciacao, Amortizacao e Exaustao")
v.lliq = m.DRE.aj.cm["Lucro/Prejuizo Consolidado do Periodo - DRE",]

v.marg.liq=v.lliq/v.vendas 
rownames(v.marg.liq)=c("Margem Liquida")

Análise de Lucratividade (II)

Indicadores

# Visualizar EBIT, EBITDA, NOPAT, NOPLAT

rm(g1.dt)
rm(g2.dt)
rm(g3.dt)
rm(g4.dt)
rm(g1.conta)
rm(g2.conta)
rm(g3.conta)
rm(g4.conta)


g1.str= "EBIT"
g2.str= "EBITDA"
g3.str= "NOPAT"
g4.str= "NOPLAT"


Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
g1.dt = as.data.frame(t(ind.ebit))
g2.dt = as.data.frame(t(ind.ebitda))
g3.dt = as.data.frame(t(ind.nopat))
g4.dt = as.data.frame(t(ind.noplat))


g1.conta=c(rep(g1.str,9))
g2.conta=c(rep(g2.str,9))
g3.conta=c(rep(g3.str,9))
g4.conta=c(rep(g4.str,9))

g1.dt["Indicadores"]=g1.conta
g2.dt["Indicadores"]=g2.conta
g3.dt["Indicadores"]=g3.conta
g4.dt["Indicadores"]=g4.conta

names(g1.dt)[1]="Valor"
names(g2.dt)[1]="Valor"
names(g3.dt)[1]="Valor"
names(g4.dt)[1]="Valor"


Anos = paste(Anos,"0101", sep="")
g1.dt["Anos"]=Anos

g2.dt["Anos"]=Anos

g3.dt["Anos"]=Anos

g4.dt["Anos"]=Anos


g.dt=(rbind(g1.dt,g2.dt,g3.dt,g4.dt))

rownames(g.dt)=c(1:length(row.names(g.dt)))

g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")

g1.dt$Anos = as.Date(g1.dt$Anos,"%Y%m%d")
g2.dt$Anos = as.Date(g2.dt$Anos,"%Y%m%d")
g3.dt$Anos = as.Date(g3.dt$Anos,"%Y%m%d")
g4.dt$Anos = as.Date(g4.dt$Anos,"%Y%m%d")


g.dt["Anos"]=Anos
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g.dt$Indicadores = as.factor(g.dt$Indicadores)

g15 = ggplot(data=g.dt, aes(x=Anos ,y = Valor, group = Indicadores, colour= Indicadores ))+
  geom_line(col="gray70",size= 0.8, linetype = 3 )+
  labs( x="Ano", y="Indicadores (Bilh?es R$)") +
  ggtitle("Comparativo de Indicadores de Lucratividade")+
  scale_y_continuous(labels = function(z) paste0(z/1000000, " Bi R$"), breaks=seq(-1000000,3800000,by= 500000), limits=c(-1000000,3800000))+
  scale_x_date(date_labels = "%Y", date_breaks = "1 year") +
  geom_label_repel(
    aes(x=Anos ,y = Valor, label = paste0(f.dec(Valor/1000000,3), " Bi")),
    box.padding = 0.2, point.padding = 0.2,
    size = 3.5, nudge_y = 0.15,
    segment.color = "grey70") + geom_point(aes(shape = Indicadores),size =4.5) +
  scale_shape_manual(values=c(15, 16, 17, 18)) + scale_size_manual(values=c(4, 4, 6, 6)) + theme_bw()+
  theme(panel.border = element_rect(fill=NA,color="black", size=.5, linetype="solid"),
        plot.title = element_text(color="black", size=18, face="bold.italic"),
        axis.title.x = element_text(color="black", size=16, face="bold"),
        axis.title.y = element_text(color="black", size=16, face="bold"),
        axis.text.x = element_text(face="plain", color="black", size=14, angle=0),
        axis.text.y = element_text(face="plain", color="black", size=14, angle=0))
# guides(group=g.dt, col = guide_legend(nrow=1))
g15= g15 +
  # scale_colour_grey(start = 0.3, end = 0.4) +
  theme(legend.position = c(0.60, 0.80),
        legend.background = element_rect(fill="white", size=1, linetype="solid"))

print(g15)

Análise da Lucratividade (III)

Margens

rm(g1.dt)
rm(g2.dt)
rm(g3.dt)

g1.str="Margem EBIT"
g2.str= "Margem EBITDA"
g3.str= "Margem NOPAT"
g4.str= "Margem Líquida"

Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
g1.dt =as.data.frame(t(v.marg.ebit))
g2.dt =as.data.frame(t(v.marg.ebitda))
g3.dt =as.data.frame(t(v.marg.nopat))
g4.dt =as.data.frame(t(v.marg.liq))

g1.conta=c(rep(g1.str,9))
g2.conta=c(rep(g2.str,9))
g3.conta=c(rep(g3.str,9))
g4.conta=c(rep(g4.str,9))

g1.dt["Margem"]=g1.conta
g2.dt["Margem"]=g2.conta
g3.dt["Margem"]=g3.conta
g4.dt["Margem"]=g4.conta

names(g1.dt)[1]="Valor"
names(g2.dt)[1]="Valor"
names(g3.dt)[1]="Valor"
names(g4.dt)[1]="Valor"

Anos = paste(Anos,"0101", sep="")
g1.dt["Anos"]=Anos
g2.dt["Anos"]=Anos
g3.dt["Anos"]=Anos
g4.dt["Anos"]=Anos


g.dt=(rbind(g1.dt,g2.dt,g3.dt,g4.dt))

rownames(g.dt)=c(1:length(row.names(g.dt)))

g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")

g1.dt$Anos = as.Date(g1.dt$Anos,"%Y%m%d")
g2.dt$Anos = as.Date(g2.dt$Anos,"%Y%m%d")
g3.dt$Anos = as.Date(g3.dt$Anos,"%Y%m%d")
g4.dt$Anos = as.Date(g4.dt$Anos,"%Y%m%d")


g.dt["Anos"]=Anos
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g.dt$Contas = as.factor(g.dt$Margem)

g16 = ggplot(data=g.dt, aes(x=Anos ,y = Valor, group = Margem, colour= Margem ))+
  geom_line(col="gray70",size= 0.8, linetype = 3 )+
  labs( x="Ano", y="Margens %") +
  ggtitle("Margem na Lucratividade")+
  scale_y_continuous(labels = function(z) paste0(z*100, "%"), breaks=seq(-0.15,0.3,by=0.10), limits=c(-0.15,0.3))+
  scale_x_date(date_labels = "%Y", date_breaks = "1 year") +
  geom_label_repel(
    aes(x=Anos ,y = Valor, label = paste0(f.dec(Valor*100,2), "%")),
    box.padding = 0.2, point.padding = 0.2,
    size = 3.5, nudge_y = 0.05,
    segment.color = "grey70") + geom_point(aes(shape = Margem),size =4.0) +
  scale_shape_manual(values=c(15, 16, 17,18)) + scale_size_manual(values=c(4, 4, 6, 4)) + theme_bw()+
  theme(panel.border = element_rect(fill=NA,color="black", size=.5, linetype="solid"),
        plot.title = element_text(color="black", size=18, face="bold.italic"),
        axis.title.x = element_text(color="black", size=16, face="bold"),
        axis.title.y = element_text(color="black", size=16, face="bold"),
        axis.text.x = element_text(face="plain", color="black", size=14, angle=0),
        axis.text.y = element_text(face="plain", color="black", size=14, angle=0))
# guides(group=g.dt, col = guide_legend(nrow=1))

g16= g16 +
  #   scale_colour_grey(start = 0.3, end = 0.4) +
  theme(legend.position = c(0.13, 0.17), legend.key.size = unit(0.5, "cm"),
        legend.background = element_rect(fill="white", size=1, linetype="solid"))


print(g16)

#saveplot(g16,"g16.png")

Análise de Rentabilidade

RENTABILIDADE (Retorno do Investimento/Ativo ou PL)

\(ROA = (Lucro\ Líquido)/(Ativo\ Total)\)

\(ROI = ROIC = EBIT/(Ativos\ Operacionais)\)

\(ROE= LL/PL\)

GIRO (# de vezes que Ativos ou PL girou em função das vendas)

\(Giro\ dos\ Ativos= Vendas/(Ativo\ total)\)

\(Giro\ Operacional = Vendas/ (Ativos\ Operacionais)\)

\(Giro\ do\ PL= Vendas/ PL\)

Importante:

\(RETORNO= MARGEM * GIRO\)

Exemplo: \(ROI = [(Lucro\ Operacional)/(Vendas)] * [(Vendas)/(Ativos\ Operacionais)]\)

Análise de Rentabilidade (I)

v.PL.aj=m.Passivo.aj.med["Patrimonio Liquido Consolidado - PL",]
rownames(v.PL.aj)=c("Patrimonio Liquido Consolidado - PL")
at.ciclico=t(at.ciclico)


ind.roa=v.lliq/v.AT.aj
ind.roe=v.lliq/v.PL.aj
ind.roi=ind.ebit/at.ciclico

rownames(ind.roa)=c("ROA")
rownames(ind.roe)=c("ROE")
rownames(ind.roi)=c("ROI")


ind.giro.op=v.vendas/at.ciclico
ind.giro.at=v.vendas/v.AT.aj
ind.giro.pl=v.vendas/v.PL.aj

rownames(ind.giro.op)=c("Giro Operacional")
rownames(ind.giro.at)=c("Giro do Ativo")
rownames(ind.giro.pl)=c("Giro do PL")

Análise de Rentabilidade (II)

Indicadores

rm(g1.dt)
rm(g2.dt)
rm(g3.dt)

g1.str="ROA"
g2.str= "ROE"
g3.str= "ROI"

Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
g1.dt =as.data.frame(t(ind.roa))
g2.dt =as.data.frame(t(ind.roe))
g3.dt =as.data.frame(t(ind.roi))

g1.conta=c(rep(g1.str,9))
g2.conta=c(rep(g2.str,9))
g3.conta=c(rep(g3.str,9))

g1.dt["Indicadores"]=g1.conta
g2.dt["Indicadores"]=g2.conta
g3.dt["Indicadores"]=g3.conta

names(g1.dt)[1]="Valor"
names(g2.dt)[1]="Valor"
names(g3.dt)[1]="Valor"

Anos = paste(Anos,"0101", sep="")
g1.dt["Anos"]=Anos
g2.dt["Anos"]=Anos
g3.dt["Anos"]=Anos

g.dt=(rbind(g1.dt,g2.dt,g3.dt))

rownames(g.dt)=c(1:length(row.names(g.dt)))

g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")

g1.dt$Anos = as.Date(g1.dt$Anos,"%Y%m%d")
g2.dt$Anos = as.Date(g2.dt$Anos,"%Y%m%d")
g3.dt$Anos = as.Date(g3.dt$Anos,"%Y%m%d")

g.dt["Anos"]=Anos
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g.dt$Contas = as.factor(g.dt$Indicadores)

g17 = ggplot(data=g.dt, aes(x=Anos ,y = Valor, group = Indicadores, colour= Indicadores ))+
  geom_line(col="gray70",size= 0.8, linetype = 3 )+
  labs( x="Ano", y="Indicadores %") +
  ggtitle("Indicadores de Rentabilidade")+
  scale_y_continuous(labels = function(z) paste0(z*100, "%"), breaks=seq(-0.25,0.3,by=0.10), limits=c(-0.25,0.3))+
  scale_x_date(date_labels = "%Y", date_breaks = "1 year") +
  geom_label_repel(
    aes(x=Anos ,y = Valor, label = paste0(f.dec(Valor*100,2), "%")),
    box.padding = 0.2, point.padding = 0.2,
    size = 3.5, nudge_y = 0.05,
    segment.color = "grey70") + geom_point(aes(shape = Indicadores),size =4.5) +
  scale_shape_manual(values=c(15, 16, 17,18)) + scale_size_manual(values=c(4, 4, 6, 4)) + theme_bw()+
  theme(panel.border = element_rect(fill=NA,color="black", size=.5, linetype="solid"),
        plot.title = element_text(color="black", size=18, face="bold.italic"),
        axis.title.x = element_text(color="black", size=16, face="bold"),
        axis.title.y = element_text(color="black", size=16, face="bold"),
        axis.text.x = element_text(face="plain", color="black", size=14, angle=0),
        axis.text.y = element_text(face="plain", color="black", size=14, angle=0))
# guides(group=g.dt, col = guide_legend(nrow=1))

g17= g17 +
  #   scale_colour_grey(start = 0.3, end = 0.4) +
  theme(legend.position = c(0.15, 0.20),
        legend.background = element_rect(fill="white", size=1, linetype="solid"))


print(g17)

Análise de Rentabilidade (III)

Margens

rm(g1.dt)
rm(g2.dt)
rm(g3.dt)

g1.str="Margem EBIT"
g2.str= "Margem EBITDA"
g3.str= "Margem NOPAT"
g4.str= "Margem Líquida"
Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
g1.dt =as.data.frame(t(v.marg.ebit))
g2.dt =as.data.frame(t(v.marg.ebitda))
g3.dt =as.data.frame(t(v.marg.nopat))
g4.dt =as.data.frame(t(v.marg.liq))

g1.conta=c(rep(g1.str,9))
g2.conta=c(rep(g2.str,9))
g3.conta=c(rep(g3.str,9))
g4.conta=c(rep(g4.str,9))

g1.dt["Margem"]=g1.conta
g2.dt["Margem"]=g2.conta
g3.dt["Margem"]=g3.conta
g4.dt["Margem"]=g4.conta

names(g1.dt)[1]="Valor"
names(g2.dt)[1]="Valor"
names(g3.dt)[1]="Valor"
names(g4.dt)[1]="Valor"

Anos = paste(Anos,"0101", sep="")
g1.dt["Anos"]=Anos
g2.dt["Anos"]=Anos
g3.dt["Anos"]=Anos
g4.dt["Anos"]=Anos


g.dt=(rbind(g1.dt,g2.dt,g3.dt,g4.dt))

rownames(g.dt)=c(1:length(row.names(g.dt)))

g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")

g1.dt$Anos = as.Date(g1.dt$Anos,"%Y%m%d")
g2.dt$Anos = as.Date(g2.dt$Anos,"%Y%m%d")
g3.dt$Anos = as.Date(g3.dt$Anos,"%Y%m%d")
g4.dt$Anos = as.Date(g4.dt$Anos,"%Y%m%d")


g.dt["Anos"]=Anos
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g.dt$Contas = as.factor(g.dt$Margem)

g18 = ggplot(data=g.dt, aes(x=Anos ,y = Valor, group = Margem, colour= Margem ))+
  geom_line(col="gray70",size= 0.8, linetype = 3 )+
  labs( x="Ano", y="Margens %") +
  ggtitle("Margem da Rentabilidade")+
  scale_y_continuous(labels = function(z) paste0(z*100, "%"), breaks=seq(-0.15,0.3,by=0.10), limits=c(-0.15,0.3))+
  scale_x_date(date_labels = "%Y", date_breaks = "1 year") +
  geom_label_repel(
    aes(x=Anos ,y = Valor, label = paste0(f.dec(Valor*100,2), "%")),
    box.padding = 0.2, point.padding = 0.2,
    size = 3.5, nudge_y = 0.05,
    segment.color = "grey70") + geom_point(aes(shape = Margem),size =4.5) +
  scale_shape_manual(values=c(15, 16, 17,18)) + scale_size_manual(values=c(4, 4, 6, 4)) + theme_bw()+
  theme(panel.border = element_rect(fill=NA,color="black", size=.5, linetype="solid"),
        plot.title = element_text(color="black", size=18, face="bold.italic"),
        axis.title.x = element_text(color="black", size=16, face="bold"),
        axis.title.y = element_text(color="black", size=16, face="bold"),
        axis.text.x = element_text(face="plain", color="black", size=14, angle=0),
        axis.text.y = element_text(face="plain", color="black", size=14, angle=0))
# guides(group=g.dt, col = guide_legend(nrow=1))

g18= g18 +
  #   scale_colour_grey(start = 0.3, end = 0.4) +
  theme(legend.position = c(0.55, 0.80), legend.title = element_text(size = 7),
      legend.text = element_text(size = 7), legend.key.size = unit(0.6, "cm"),
        legend.background = element_rect(fill="white", size=1, linetype="solid"))

print(g18)

Análise da Rentabilidade (IV)

Giros

rm(g1.dt)
rm(g2.dt)
rm(g3.dt)

g1.str="Giro do Ativo"
g2.str= "Giro Operacional"
g3.str= "Giro do PL"

Anos=c("2018","2017","2016","2015","2014","2013","2012","2011","2010")
g1.dt =as.data.frame(t(ind.giro.at))
g2.dt =as.data.frame(t(ind.giro.op))
g3.dt =as.data.frame(t(ind.giro.pl))


g1.conta=c(rep(g1.str,9))
g2.conta=c(rep(g2.str,9))
g3.conta=c(rep(g3.str,9))


g1.dt["Indicadores"]=g1.conta
g2.dt["Indicadores"]=g2.conta
g3.dt["Indicadores"]=g3.conta


names(g1.dt)[1]="Valor"
names(g2.dt)[1]="Valor"
names(g3.dt)[1]="Valor"


Anos = paste(Anos,"0101", sep="")
g1.dt["Anos"]=Anos
g2.dt["Anos"]=Anos
g3.dt["Anos"]=Anos



g.dt=(rbind(g1.dt,g2.dt,g3.dt))

rownames(g.dt)=c(1:length(row.names(g.dt)))

g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")

g1.dt$Anos = as.Date(g1.dt$Anos,"%Y%m%d")
g2.dt$Anos = as.Date(g2.dt$Anos,"%Y%m%d")
g3.dt$Anos = as.Date(g3.dt$Anos,"%Y%m%d")

g.dt["Anos"]=Anos
g.dt$Anos = as.Date(g.dt$Anos,"%Y%m%d")
g.dt$Contas = as.factor(g.dt$Indicadores)

g19 = ggplot(data=g.dt, aes(x=Anos ,y = Valor, group = Indicadores, colour= Indicadores ))+
  geom_line(col="gray70",size= 0.8, linetype = 3 )+
  labs( x="Ano", y="Giro Operacional, do Ativo e do PL") +
  ggtitle("Indicadores de Desempenho Econômico")+
  scale_y_continuous(labels = function(z) paste0(z*1, " "), breaks=seq(0.0,3,by=0.5), limits=c(0.0,3))+
  scale_x_date(date_labels = "%Y", date_breaks = "1 year") +
  geom_label_repel(
    aes(x=Anos ,y = Valor, label = paste0(f.dec(Valor*1,2), " ")),
    box.padding = 0.2, point.padding = 0.2,
    size = 3.0, nudge_y = 0.05,
    segment.color = "grey70") + geom_point(aes(shape = Indicadores),size =4.0) +
  scale_shape_manual(values=c(15, 16, 17,18)) + scale_size_manual(values=c(4, 4, 6, 4)) + theme_bw()+
  theme(panel.border = element_rect(fill=NA,color="black", size=.5, linetype="solid"),
        plot.title = element_text(color="black", size=18, face="bold.italic"),
        axis.title.x = element_text(color="black", size=16, face="bold"),
        axis.title.y = element_text(color="black", size=16, face="bold"),
        axis.text.x = element_text(face="plain", color="black", size=14, angle=0),
        axis.text.y = element_text(face="plain", color="black", size=14, angle=0))
# guides(group=g.dt, col = guide_legend(nrow=1))

g19= g19 +
  #   scale_colour_grey(start = 0.3, end = 0.4) +
  theme(legend.position = c(0.25, 0.85), legend.title = element_text(size = 7),
      legend.text = element_text(size = 7), legend.key.size = unit(0.6, "cm"),
        legend.background = element_rect(fill="white", size=1, linetype="solid"))

print(g19)

Tarefa 3

Refaça para a análise para a Gerdau:

  1. Período 2012 - 2018.

  2. Correção Monetária IGP-DI

  3. Utilize dados consolidados

  4. Compare com a Usiminas